Select Code to Download

#!/usr/bin/perl

...
while(<>) {
        printf STDOUT $_;
}

processed line 1000000
processed line 2000000
...
processed line 18000000
processed line 19000000
Modification of a read-only value attempted at mysplit.pl line 13, <> 
+line 20804003.