open(MAILFILE, "<$mail_inbox_folder/$mail_get_message_number");
      @mail_message_lines=;
      close(MAILFILE);
      $i=0;
      while(1) {
        $i++;
        if ($mail_message_lines[$i]=~/To:*\@*\.*/) {
          print "$mail_message_lines[$i+1]";
          print "$mail_message_lines[$i+2]";
          print "$mail_message_lines[$i+3]\n";
          $mail_reply_to=substr($mail_message_lines[$i+1], 6);
          chomp($mail_reply_subject=substr($mail_message_lines[$i+2], 
9));

        }
        if ($mail_message_lines[$i] eq "\n") {
        $mail_message_lines[$i];
          while(1) {
            $i++;
            print $mail_message_lines[$i];
            last if $mail_message_lines[$i] eq "";
          }