Select Code to Download

sub proc{
    my ($file) = @_;
...
    # when $input goes out of scope.
    #close($input);
}