Select Code to Download

sub texec {

...
    return (($@) ? [$out, $@] : $out);

}

 
my $res = texec (10, "/usr/bin/ls", "-al", "/");
if (ref ($res->[0])) {
...
    print "Command output:\n";
    print Dumper ($res), "\n";
}