Mail::Message->read(\*STDIN);
my $absender = $msg->sender;