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);