$file = glob(($dir . '\\files\\*.ntp')) or die "no NTP file\n" if( not defined( $file ));