package MyClass;

sub new {
   # erstes Argument ist der Klassenname
   my $Klasse = shift;
   
   my $Referenz = {}; # anonymer Hash
   
   # setze object eigenschaft
   $Referenz->{"myEigenschaft"} = "Wert meiner Eigenschaft";
   
   # Objekt-Referenz wird erzeugt
   bless( $Referenz, $Klasse );
   
   return($Referenz);
}
  ...
1;