`last.pl $source`;

#in last.pl

my $source = $ARGV[0];