#!/usr/bin/perl
use MIME::Parser;
foreach(@ARGV){
$p = new MIME::Parser;
$e = $p->parse_open($_);
}