sub &run_SQL_script {

$dbh = DBI->connect($database, $username, $password)
       or die "Can't connect to database: $DBI::errstr\n";

open (SCRIPT, "$filename");
while (my $data = <SCRIPT>) {
   $SQLscript = $dbh->prepare(" '$data' ");
   $SQLscript->execute();
}
   close (SCRIPT);
}