until ($FromAddress =~ /From/i)
{
     $FromAddress = <STDIN>
}

##</code><code>##

my $parser = new MIME::Parser;
my $entity = $parser->parse(\*STDIN) or debug_parser();