Help for this page

Select Code to Download

Select or download this

sub get_closure {
  my ($filename) = @_;
...
    # do something with $record
}

Select or download this

my $file = shift @ARGV;

...
## ... and
my $another_value = <STDIN>;