#example:
sub foo
(

$self = shift;

my $dbh = $self->{$dbh};

$dbh->do{ DELETE FROM EXAMPLE }

}