Select Code to Download

my $data = do { local $/, <DATA> };

open my $fh, '<', $filename or die $!;
while ( <$fh> ) {
    ... # process one line at a time
}