Select Code to Download

foreach my $filename ( @files ) {
   open ( FILE, "<", $filename )
...
   }
   $dbh->do( $batch ) if ( $batch =~ m/^\s*go\s*$/msi );
}