Help for this page

Select Code to Download


  1. or download this
    until ($FromAddress =~ /From/i)
{
     $FromAddress = <STDIN>
}
  2. or download this
    my $parser = new MIME::Parser;
my $entity = $parser->parse(\*STDIN) or debug_parser();