use Mail::Sendmail;

sub attach {
   my $f = shift;
   my $boundary = "====" . time() . "====";


   $f->{body} = encode_qp( $f->{message} );
   $f->{from} = 'test@thesite.org';
   delete($f->{message});
   $f->{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";

   $boundary = '--'.$boundary;

   $f->{body} = <<HEAD;
$boundary
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

$f->{body}
HEAD


      while ( my($file,$data) = each %{$f->{attachment}}){
                $f->{body} .= <<ATTACH;
$boundary
Content-Type: application/octet-stream; name="$file"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment; filename="$file"

$data
$boundary--
ATTACH
   }
   delete($f->{attachment});
   sendmail(%$f);
}