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;