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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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