my %mail = (
                     To => $to,
                     From =>  $from,
                     File => '/var/www/ef-cok/cgi-bin/jomon.txt',
                     subject=> $subject,
                    

                     );
             $mail{Smtp} =$smtp;
sendmail %mail