Select Code to Download

my @lines;
while (<>) {
...
}

die if @lines;

while (!eof()) {
    my @lines;
    defined( $lines[@lines] = <> ) or die for 1..3;
    ...
}