use Mail::POP3Client;
use Encode;
use YAML;
my $configFile = 'config.yaml';
my $config = YAML::LoadFile($configFile);
my $pop = new Mail::POP3Client(
USER => $config->{mail}->{userid},
PASSWORD => $config->{mail}->{password},
HOST => $config->{mail}->{host},
DEBUG => 0
);
for($i=1; $i <= $pop->Count; $i++){
print "++++++++++++++mail+++++++++++++++++\n";
foreach($pop->Head($i)){
if($_ =~/^(Subject|From|To):\s/ ){
print encode('sjis', decode('iso-2022-jp',$_)),"\n";
}
}
foreach($pop->Body($i)){
print encode('sjis', decode('iso-2022-jp',$_)),"\n";
}
# $pop->Delete($i);
}
$pop->Close;