my $msg = MIME::Lite->new( 
                 From    =>$Input{'email'}, 
                 To      =>$Input{'sender'}, 
                 Subject =>'Envío por el anuncio', 
                 Type    =>'multipart/mixed' 
                 ); 
 
 
    ### Add parts (each "attach" has same arguments as "new"): 
    $msg->attach(Type     =>'TEXT', 
                 Data     =>"$Input{'message'}" 
                 ); 
 
open(FILE, "attach.txt"); 
my @lines = <FILE>; 
close(FILE); 
 
foreach my $line(@lines){ 
 
my $path = "/u19/ben/boon/uploads/$line"; 
 
    $msg->attach(Type     =>'image/gif', 
                 Path     =>$path, 
                 Filename =>$line, 
                 Disposition => 'attachment' 
                 ); 
 
                 } 
 
   $msg->send; 
 
print "Content-type: text/html\n\n"; 
print "<h1>DONE</h1>";