Select Code to Download

#! perl -w scipt
use strict;
use warnings;

for (<*.sql>) { # I never use C<foreach> ;-)

while (<*.sql>) {
   ...

# I still prefer C<for> orver C<foreach>!!