opendir DIR, '.' or die "Cannot open current dir. $!";
my @files = grep { /\.(?:dat)$/i } readdir DIR;
closedir DIR;
my $datfile = $files[0];
print "\$datfile ==> $datfile\n";