Select Code to Download

LOOP_ONE:
while (<>)
...
    next unless $condition_two;
    last LOOP_TWO;
}

while (<>)
{
...
    }
}
print "\nDone\n";

X:\>while_eof file1 file2
file1: 1: file1
...

Done