# instead of system perl...
{
  local @ARGV = ("G:/PUB_HLTH/blah/blah", "G:/PUB_HLTH/blah/blah2");
  do '20_October_2004_K.pl';
}