use Win32::ODBC;
use CGI qw(:standard);
use CGI::Carp qw/fatalsToBrowser/;
    $mailsubject = "Subject: ".$Form{'subject'};
   $attachment = "Attach: ".$Form{'attachment'};
            open MAIL, "|c:/windmail/windmail -t";
            print MAIL "To:$Email\@ybs.co.uk\n";
            print MAIL "From:Internal_Comms\@ybs.co.uk\n";
            print MAIL "Subject:".$mailsubject." \n\n";
            print MAIL "Attach:".$attachment."\n\n";
            print MAIL "\n\n";
            print MAIL $mailtext;
            close MAIL;

##</code><code>##

To: me
From: Internal_Comms
Subject: Any text

Message body:
T:\Anything.pdf

Some text