my $retval; 
my $statement = <<"END_PSQL";
    BEGIN
        manggis.create_new_file(
            'filetype' => $E{ sql_param($filetype) },
            'file_id'  => $E{ sql_param_inout(\$retval, 40) },
        );
    END;
END_PSQL