Select Code to Download

1 sub foo
2 {
4a    my $self = shift;
4b    my () = @_;
3 }

my $data_fh = IO::File->new($data_filename)
    || die "Cannot open '$data_filename' for reading: $!\n";
...

    ...
}