Select Code to Download

print "start\n" if (grep {/test/}<TEST>);

while (<TEST> and !$flag){}   #UPDATE---see below discussion!