LanX-+2008-07-23 17:35:08--

ich vermute du willst folgendes

Code (perl): (dl )

1
2
3
4

sub set_host{
        my $self = shift;
        $self->{host} = shift;
}