In Deinem Fall sollte es also so gehen:

tut es, aber...

sub new {

my $class=shift;
  my $self={};
  my $obj = bless $self,$class;
  # weiter Operationen
  return $obj;
}

  
Einmal umständlich.  
 ~~~perl
sub new {  
   my $self= bless{}, shift;  
   # weiter Operationen  
   return $self;  
 }

und er muss aufpassen, falls das Objekt von einem Objekt erzeugt werden soll, also so:

  my $pp1=Parkplatz->new();  
  my $pp2=$pp1->new();  

Dann funktioniert das nicht. Daher ist der flexibelste Weg ein Objekt zu erzeugen so:

  sub new {  
    my $self = bless{}, ref $_[0] || $_[0];  
    # tu was  
    return $self;  
  }  
  

Struppi.