Select Code to Download

  my $file = shift(@_);
    my @directories = @_;

foo(1,2,3,4,5,6);

...
    print $file, "\n";
    print @directories;
}