Object Referenz verschachteln

[Chrisi]

Hi zusammen,

ich steige gerade in die Perler Welt ein und versuche seit "knapp 1 Stunde :-)" meine Variablen in einem Object zur Verfügung zu stellen, was ich aber nicht auf die Reihe bekomme :-)

sub new {  
  
    my $class = shift;  
    my $parent = shift;  
  
    my $self = {  
        _bin => (  
            'rm' => '/bin/rm',  
            'cp' => '/bin/cp'  
        )  
    };  
  
    bless $self,$parent;  
    return $self;  
  
}  
  
sub test {  
    my $self = shift;  
    print $self->{'_bin'}->{'cp'};  
}

Beim Aufruf von $obj->test soll /bin/cp ausgegeben werden.

Kann mir da jemand sagen wie man es richtig anstellt?

Danke und Grüße
Chrisi