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