Select Code to Download

use strict;
use warnings;
...

my $msg = Mail::Message->read(\*STDIN);
print $_->format for $msg->to;