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

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


##</code><code>##

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

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