2007-05-21から1日間の記事一覧
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 => $conf…