#!/usr/bin/perl 
 
use strict; 
use warnings; 
use DBI; 
 
# 1/ Connect to database 
 
my $dbh = DBI->connect(....)  # fill in your connection params 
  or die DBI->errstr; 
 
# 2/ Open file 
 
my $file = 'fil.sql'; # or whatever 
open SQL, $file or die $!; 
 
# 3/ Read contents into a variable 
 
my $sql = do { local $/; <SQL> } 
 
#4/ Use "do" to execute SQL agains database 
 
$dbh->do($sql);