#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);
use MIME::Lite;

require './cgi-lib.pl';

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
    ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORM{$name} = $value;
}

$from = $FORM{'from'};
$to = $FORM{'to'};
$subject = $FORM{'subject'};
$file = FORM{'file'};
$page = $FORM{'page'};

        my $msg = MIME::Lite->new (
               From => '$from',
               To   => '$to',
               Subject => '$subject',
               Type    => 'multipart/mixed');

        $msg->attach(
            Type     =>'BINARY',
            Path     =>"$file");


        $msg->send;

print "Location: $page\n\n";