Select Code to Download

local $/ = "\n";
my $LIMIT = 1024;
...
    die "line too long" if $tooLong;
    # process $line
}