Perl DBI + MySql проблема

Можно ли за один execute через DBI выполнить sql скрипт типа этого?

SET @t=now();
INSERT INTO .......
FROM ..........
WHERE (@t > date_add(Created, INTERVAL 5 SECOND));

DELETE FROM .....
WHERE (@t > date_add(Created, INTERVAL 5 SECOND));



Такое впечатление, что $sth->execute($sql) не переваривет больше одной
sql комманды, выполнять каждую по одной из DBI - работает, а все вместе,
ругается на SQL syntax.
Этот же sql скрипт через mysql < script.sql работает на ура.