$body = join("\n", join (" : ", each (%passed)));

  my $msg = MIME::Lite->new( 
			    From    => $from,
			    To      => $email, 
			    Type    => 'TEXT', 
			    Subject => 'Results from emailtest.pl',
			    Data   => $body
			   ); 

while (($fname, $fh) = each %file_handles) 
    { 
      $msg->attach( 
		   Type     => 'BINARY', 
		   FH       => $fh,
		   Filename => $fname, 
		   Encoding => 'base64', 
	       Disposition => 'attachment' 
	      );
    }
msg -> send;