CREATE OR REPLACE PROCEDURAL LANGUAGE plperlu;
ALTER PROCEDURAL LANGUAGE plperlu OWNER TO postgres;
CREATE OR REPLACE FUNCTION mytest(text) RETURNS text
  LANGUAGE plperlu
  AS $_X$
  my $data = $_[0];
  my $string = $data." -->from mytest\n"; 
  return $string;
$_X$;