use strict "vars";
use MIME::Entity;
use Net::SMTP;
my ($servername, $smtp, $mail_res, $mail_from, $mail_to);
my $servername = "mail.btinternet.com";
use Net::SMTP;
$smtp = 'start';
print "smtp <$smtp> trying to connect to <$servername>\n";
# Connect to the server
$smtp = Net::SMTP->new($servername, Debug => 1);
if($smtp =~ m/SMTP\=/) {
	print "\nconnected to mail server <$servername>\n";
	print "smtp->domain <$smtp->domain>\n"; 
	$mail_from = 'copied e-mail address';
	$mail_res = $smtp->mail($mail_from);
	print "\nafter ->mail result <$mail_res> for <$mail_from>\n\n";
	$mail_to = $mail_from;
	$smtp->recipient($mail_to);
	print "\nafter ->recipient\n\n";
} else {
	print "could NOT connect to mail server <$servername>\n";
}