my $pop = Net::SMTP->new($mail_server, Port => 587)
	or die "Can't open connection to $mail_server: