#!/usr/local/bin/perl -w
use strict;
my @commands = ('sudo /foo/bar/paco', '/foo/bar/paco', 'ls -laF');
for (@commands) {
        my $return = `$_`;
        print "\$ $_\n";
        print "ERRNO       = $!\n";
        print "CHILD_ERROR = $?\n";
        print $return;
        print "\n******************************************\n\n";
}