$dbh->do("CREATE FUNCTION MyAdd"); sub MyAdd { my($self,$sth,$rowhash,@params)=@_; my $sum; $sum += $_ for @params; return $sum } my $sth = $dbh->prepare(" SELECT myAdd(id,9) AS foo FROM test ");