Select Code to Download

while ($line0=<>) {$line1=<>;$line2=<>;$line3=<>;
last if not defined $line0;
last if not defined $line1;
...
last if not defined $line3;
do_some_stuff;
}