use Net::SMTP;

my $mailServer = "mail.server.de";
.
.
.
$smtp = Net::SMTP->new($mailServer);