1|my $parser = new MIME::Parser;
2|my $message = $parser->parse(\*STDIN) or die "$!\n";
3|my @to = $message->head->get("To");
4|my @cc = $message->head->get("Cc");
5|my @bcc = $message->head->get("Bcc");