Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
my $d;
$d = shift; #this wiill work
print "$d\n"; #will print argument

#!/usr/local/bin/perl -w
use strict;

die "argument required\n" unless defined $ARGV[0]; # will stop the scr
+ipt if there is no argument
print "This is what I ment $ARGV[0]\n";