$cmd = "gawk -f D:\\tools\\scan_tdf.awk 'corrtype=ada', 'FileSuffix=_pkg', 'TDFname=sys_mma_pfd_gmeter.tdf', 'PrefixFile=d:\\tools\\PrefixFile', 'BusNamesFile=d:\\data\\ssi_BusNames', 'VAXPATH=NONE', 'DIRPATH=NONE'";

  print "cmd1 is $cmd \n\n";
  $sts = system($cmd);
  print "sts1 from gawk is $sts \n";
exit(0);