Hello All,
I'm writing a scrip to send an email with some files uploaded off a form.
The CGI bit works fine - it puts the filehandles of the uploaded files into a hash, and tells me their size, which is correct.
For my email, I'm using MIME::Lite, and for each filehandle, using the attach method, like so:

$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;
[download]

But it's not working... My first thought is that if I had just one filehandle I would pass it FH => \*FILEHANDLE, maybe I should be using FH => \$fh.
Or is this nonsense?
Thanks for your help