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

my $d;
$d = shift; #this wiill work
print "$d\n"; #will print argument
[download]

#!/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";
[download]