#!/usr/bin/perl
use strict;
use warnings;
use Net::SMTP;
print "Content-Type:text/plain\n\nNet::SMTP gefunden"; 

my $smtp = Net::SMTP->new('post.strato.net'); #< war doch so oder?...

if($smtp)
{
  print "INIT OK\n";
  print "DOMAIN:".$smtp->domain,"\n";
  $smtp->quit();
}
else
{ print "INIT Failed\n"; }