open NEW944, ">>$mail_944file" or warn $!;
  print LOG "open NEW944\n";
  while (<NEW944>) {
    print LOG "inside NEW944\n";
    print NEW944 "inside NEW944\n";
    chomp;
    print LOG "Vijay944 - $_\n";
    if ( ! /^darien_inbound/ ) {
      print NEW944 $mail_group,"\n";
      print NEW944 "     \n";
      print NEW944 "                                                                                             \n";
      print NEW944 "Transaction        ISA Ctl#        Date           Time        GS Ctl#          Order#                                  \n";
      print NEW944 "                                   (YY/MM/DD)                                                                       \n";
      print NEW944  "--------------------------------------------------------------------------------------------\n";
    }
  }