my $mail = Mail::Internet->new(\*STDIN);