Выполнение файла SQL на Perl

У нас есть сценарий Perl, который запускает SQL и помещает данные в таблицу. Теперь вместо того, чтобы предоставлять один оператор SQL, мы хотим передать несколько из них, объединив их в файл .sql. Мы знаем, что наша программа потерпит неудачу, потому что она ожидает одного оператора SQL, а не их нескольких (это тоже из файла .sql). Как заставить его работать с файлом .sql (имеющим несколько операторов INSERT?). Мы используем пакет DBI.

Небольшой фрагмент кода:

$sth = $dbh->prepare("/home/user1/tools/mytest.sql");
$sth->execute || warn "Couldn't execute statement";
$sth->finish();