my $datfile = (glob '*.dat')[0];