use strict;
use warnings;
use IO::Socket;
use base qw(IO::Socket::INET);
use constant CRLF => "\r\n";

my $host = 'smtp.mail.yahoo.com';
my $m = main->new(PeerAddr => "$host:25", Timeout => 1) or die $@;

# Eigenschaften via Glob anhängen
*m->{FOO} = 'foo'; # einfach Glob
*$m->{FOO} = 123;  # Glob auf Glob
$, = "\n";
print $m->getline,
    *m->{FOO}, ${*m}{FOO},
    *$m->{FOO}, ${*$m}{FOO};
    
$m->print('Helo localhost', CRLF);    
print $m->getline;

# Ausgabe untenstehend
__END__ 
220 smtp.mail.yahoo.com ESMTP ready

foo
foo
123
123
250 smtp403.mail.ir2.yahoo.com Hello localhost [79.254.13.82])