#!/usr/bin/perl
#
# for mydns.jp

use strict;
use Net::POP3;

my $username="mydnsnnnn";
my $password="xxxxxxxx";


eval{
  my $pop = Net::POP3->new("mail.mydns.jp", Timeout=>60);

  if($pop->login($username, $password)){
    $pop->quit;
      exit(0);
  }
  else{
    print STDERR "invalid\n";
    $pop->quit;
      exit(1);
  }
};