#aufruf
res_get(1);

#sub
sub res_get {
  my $self = shift;
  my $userid = shift;
  print "UID: $userid\n";
#machwas
}

#! /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>

package MyModul;

sub new
{
   my $self = {};
   
   bless $self, shift;

   return $self;
}

sub gettext
{
   my ($self, $id) = @_;
   return ++$id if defined $id;
}

1;

my $m = new MyModul();
print $m->gettext(15);

gettext(873);