use strict; use base qw(IO::Socket::INET); use Data::Dump qw(dump); my $host = 'smtp.mail.yahoo.com'; my $m = main->new(PeerAddr => "$host:25", Timeout => 1) or die $@; *$m->{FOO} = 123; # Glob auf Glob @{*$m} = qw(glib glob); *$m->[0] = 'glub'; ${*$m} = 'Scalar Ref'; dump $m;