#! /usr/bin/perl -w my @output = `@ARGV`; print "Error code is $?\nOutput is ", @output, "\n";