use DBI;

my $dbh = DBI->connect('DBI:Oracle:db','uid','pwd');

$dbh->do("DECLARE\nBEGIN\nDELETE FROM TBL;\nEND;");

$dbh->disconnect;