sub returnmail {
  $email = $FORM{'email'};
  #ゲストブックにメールアドレスが記入されていなければそのまま帰る
  if ($email =~ /\w+\@\w+\.\w+/) { 
    #あなたのメールアドレスを指定します。
    $mailto = 'xxxxx@xx.xxxxxx.ne.jp';
    
    #メールを格納しているサーバーのsendmailパス
    #わからない場合はこのまま一度実行してみてください
    #私の加入しているmeshnetや、inforyomaもこの設定で大丈夫
    $sendmail = '/usr/lib/sendmail';
    #メールの題名を設定
    $subject = 'ありがとうございます';
    $comment = $FORM{'name'};
    $comment .= "さん  始めまして、パピオです。ゲストブックにご登録ありがとうございました。";
    $comment .= "またのお越しをお待ちしております。" ;
    #メール用に文字コードをjisに設定する
    &jcode'convert(*subject,'jis');
    &jcode'convert(*comment,'jis');
    #sendmailのオープンに失敗したら何もしない
    if (open(OUT,"| $sendmail $email")) {
      #メールを送信する 
      print OUT "FormMailer: guestbook v2.0\n";
      print OUT "To: $email\n";
      print OUT "From: $mailto\n";
      print OUT "Subject: $subject\n";
      print OUT "Content-Transfer-Encoding: 7bit\n";
      print OUT "Content-Type: text/plain\n";
      print OUT "\n\n";
      print OUT "$comment\n";
      print OUT "\n";
      close(OUT);
    }
  }
}