I'm playing around with a PERL TK GUI that displays a directory of SQL scripts, allows viewing and/or modification of a specific script and also accesses the database (Oracle 8i) to run the SQL script. Everything is fine except running the script. If I log in directly to the database and use "start SQLscriptname" where SQLscriptname is a series of SQL commands in a file, I get the desired results. Now, if I attempt to use DBI prepare and execute from within my GUI, I get an Invalid SQL command error for each line in the file. The code looks like:

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);
}
[download]