my @files = grep { /\.(?:dat)$/i } readdir DIR;
closedir DIR;
my $datfile = $files[0];