Help for this page

Select Code to Download

Select or download this

    sub system_and_die {
        system(@_) and die "system @_ failed";
...
    if($@) {
        print "Ouch! ($@)\n";
    }