Select Code to Download

my $fh = IO::File::Narrow->new('/path/to/file', 'r');
local $IO::File::Narrow::max_input_record_length = 80;
...
while (defined(my $line = $fh->getline)) {
    # do something with line
}

package IO::File::Narrow;

...
1;
__END__
# TODO: pod documentation