do shell script "/usr/bin/perl /tmp/x.pl world"

##</code><code>##

#!/usr/bin/perl
print "Hello $ARGV[$1]\n";