my $msg = MIME::Lite->new(
             From    =>'Email Reflector <pler@domain.org>',
             To      =>'me@domain.org',
             Subject =>"Document built on $date",
             Type    =>'TEXT',
             Data    =>"Document requested on $date"
                         );

$msg->attach(Type     =>'application/prs.plucker',
             Path     =>"$workpath/$md5file.pdb",
             Filename =>"$title.pdb"    
            );
$msg->send;