Select Code to Download

my $filename = shift;

...
sub foo {
   my $x = shift;
}

my $filename = shift @ARGV;

...
sub foo {
   my $x = shift @_;
}