how to capture a command output or errors

package echoer;


main();

sub main
{
foreach (@ARGV)
{
$cmd .=$_ . " ";
}
my $result = `$cmd 2>&1`;
print "the result of the command is \n $result \n" ;
}


1 ;


__END__