Select Code to Download

#!/usr/bin/perl
#
...
}
print "END($i)\n";
exit;

  m/2/ && $i++ && last while (<INF>);