Select Code to Download

my $fh_iterator = sub
{
...

    return $line;
}

use strict;
use warnings;
...
{
    print $line;
}

16:29 >perl 738_SoPW.pl test.file
foo \
...
single line

16:29 >