Select Code to Download

# taken from perldoc Mail::POP3Client...

...
           /^(From|Subject):\s+/i && print $_, "\n";
         }
       }

open FILE, "filename" or die "no file! $!";
print FILE $pop -> Body( $i );
close FILE or warn "$!";