#!/usr/local/bin/perl -w
 
 
my $sqlsource = "mySql.sql";
 
if ( -r $sqlsource ) {
open( SQLPLUS, "|sqlplus /nolog") or die "Can't rus sqlplus\n" ;
print SQLPLUS <<SQL;
connect USER/PASS\@SID
\@$sqlsource
SQL
} else {
        print "$sqlsource is not readable\n";
}
[download]