ToヘッダならMIME::Parserで use MIME::Parser; my $entity = $parse->parse(\*STDIN); my $head = $entity->head; my $to = $head->get('to'); とかすればいいことはわかった。でもenvelope-toはどうやるんだろう。 my @all_received = $head->get('Receive…