$dbh->func( q{
    CREATE FUNCTION poo (INTEGER) RETURNS INTEGER AS $func$
    DECLARE
      val ALIAS FOR $1;
    BEGIN
      RETURN val * 2;
    END
  } => 'putline' )