Maila okänd adress på känd domän?

#!/usr/bin/perl
#
use Net::Telnet;

$hostname      = "your hostname";
$servername    = "foo.bar.org";
$domain        = "bar.org";
$my_email      = "horunge\@somewhere.on.internet.now";

# Accounts you want to check
@addr          = qw/ info postmaster root foo hora /;

$pop = new Net::Telnet (Telnetmode => 0);
$pop->open(Host => $servername, Port => 25);

## Read connection message.
$line = $pop->getline;
die $line unless $line =~ /^220/;

# Send helo command
$pop->print("helo $hostname");
$line = $pop->getline;
die $line unless $line =~ /^250.*ok/,i;

# Send my email address
$pop->print("mail from: $my_email");
$line = $pop->getline;
die $line unless $line =~ /^250.*ok/,i;

# Send receiver address
for my $addy (@addr) {
   $complete_addr = $addy . "\@$domain";
   $pop->print("rcpt to: $complete_addr");
   $line = $pop->getline;
   if ($line !~ m/^550/) {
      push (@addr_available, $complete_addr);
   }
}

print "Accounts that exist: @addr_available\n";