# Mehrfachvererbung
use base qw(Net::Cmd IO::Socket::INET);

# Instanz in eigener Klasse, hier die main
my $m = main->new("$host:$port") || die $@;

# und dann müssen alle Kommandos in der richtigen
# Reihenfolge abgesetzt werden

$m->command('HELO', $host);
print $m->getline;

$m->command('AUTH LOGIN');
print $m->getline;

$m->command($user_base64);
print $m->getline;

$m->command($pass_base64);
print $m->getline;

$m->command("mail from: <$from>");
print $m->getline;

$m->command("rcpt to: <$to>");
print $m->getline;

$m->datasend("data$crlf test");
print $m->getline;

$m->dataend();
print $m->getline;


$m->command("quit");
print $m->getline;