use strict;
use warnings;

# Objekte mit new() erzeugen
my $a = new a;
my $b = new b;

# Methoden aufrufen
$a->test();
$b->test();

package a;

sub new {
   return bless {}, $_[0]
}

sub test {
   my $self = shift; 
   print "test"
}

package b;

sub new {
   return bless {}, $_[0]
}

sub test {
   my $self = shift;
   print "test"
}

1;