#!/usr/bin/perl -w

use strict;
use Net::SMTP;

my $mail_server = "smtp.1and1.com";
my $username = "login";
my $password = "password";


my $pop = Net::SMTP->new($mail_server)
	or die "Can't open connection to $mail_server: $!\n";
defined ($pop->auth($username, $password))
	or die "Can't authenticate: $!\n";