Select Code to Download

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

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