Select Code to Download

my $location = shift @ARGV or die "usage: $0 [filename]\n";

my $location = shift || 'default value';