#code from a sub
        unless (open(MAIL, "| $sendmail ")) {
                return 0
        };

        my $attach=$q->param('upfile');
        my $path = $q->tmpFileName($attach);
        open (ATTACH,"cat $path | mimencode |") or return 0;

        [cut]

        close ATTACH;
        close MAIL;