my $busnDate;
   my $valuFileName="ABCD_060824010101.DAT";
   my $distFileName="EFGH_060824010101.DAT";
   my $tranFileName="HIJK_060824010101.DAT";
   my $tmp_file="C:\\temp\\testtmp.tmp";
   $busnDate = substr($valuFileName, index($valuFileName, '_')+1, 12);
   print $busnDate;
   # store file names - order should be BUSINESS_DATE VALU DIST TRAN
   print "\nStoring file names in file $tmp_file: ";
   open(TMP_FILE, "> $tmp_file") or die "failed\n";
   print "SUCCESS\n";
   print TMP_FILE $valuFileName . "\n";
   print TMP_FILE $distFileName . "\n";
   print TMP_FILE $tranFileName . "\n";
   print TMP_FILE $busnDate;
   close TMP_FILE;