myDNSに定期的にアクセス
#!/usr/bin/perl
use Net::POP3;
my %AC = ('mydns123456' => 'aaaaBBBBccccDDDD');
my $pop_mydns;
foreach(keys %AC){
$pop_mydns = Net::POP3->new('mail.MyDNS.JP');
$pop_mydns->login($_,$AC{$_});
$pop_mydns->quit;
}
exit;