Attachment in Form / Sendmail Script

do you know about attachments like: <input type=file name=attach0> so that it gets attached to the mail?


<Form action><input type=text name=recipient size=60><input type=text name=cc size=60><input type=text name=bcc size=60><input type=text name=subject size=60></input type=file name=attach0> </Form>

Script:
#!/usr/bin/perl
# Get the input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
$mailprog ="/usr/sbin/sendmail";
# Split the name-value pairs
@pairs = split(/&/, $buffer);

foreach $pair (@pairs)
{
    ($name, $value) = split(/=/, $pair);

    # Un-Webify plus signs and %-encoding
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

    # Stop people from using subshells to execute commands
    # Not a big deal when using sendmail, but very important
    # when using UCB mail (aka mailx).
      $value =~ s/~!/ ~!/g;

    # Uncomment for debugging purposes
    # print "Setting $name to $value<P>";

    $FORM{$name} = $value;
    if ($value =~ /\<\!--\#(.*)\s+(.*)\s?=\s?(.*)--\>/) { &kill_input; }
    if ($value =~ /[;><\*`\|]/) { &kill_input; }    
}
print "Content-type: text/html\n\n";

if ($FORM{'send'} eq "yes") {
  &no_data unless $FORM{'recipient'};
  &no_data unless $FORM{'from'};
  &no_data unless $FORM{'subject'};
  &Output;
  ##  Set up the Email Delivery Agent.
  $mailprog ="/usr/lib/sendmail";
  open(MAIL, "| $mailprog -t ") || die $!;
  print MAIL "To: $FORM{'recipient'}\n";
  print MAIL "From: $FORM{'from'}\@eshal.com\n";
  print MAIL "Subject: $FORM{'subject'}\n";
  print MAIL "CC: $FORM{'cc'}\n";
  print MAIL "BCC: $FORM{'bcc'}\n";
  print MAIL "From: $FORM{'from'}\@eshal.com\n";
   
  print MAIL qq{$FORM{'text'}
  };
  close(MAIL);
  ## End of send email
 
} else { .....

Thanks to all and regards to maneshr