Help for this page
$dbh->func( q{ CREATE FUNCTION poo (INTEGER) RETURNS INTEGER AS $func$ DECLARE ... RETURN val * 2; END } => 'putline' )