use strict;
use warnings;
use Mail::Message;

local $\ = "\n";

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