#! /usr/bin/perl -w

use strict;

gettext(1,2);

sub gettext{
    my $param1=shift;
    my $param2=shift;
    print "Param1: $param1\n";
    print "Param2: $param2\n";
}

erzeugt:

joerg@snibril:~/perl> perl test2.pl
Param1: 1
Param2: 2
joerg@snibril:~/perl>