Select Code to Download

sub routine {

...
    my $name = shift;
    print "routine called with '$file', '$name'\n";
}