sub Test {
	my $fname = "D:\\development\\project\\dev\\-71.95*_41.0528*.";
	my @list = glob($fname);
 	print "I found [$#list] entries\n";
}