One answer is to change your readdir line to this:

my @files = grep /\.dat$/, readdir DIR;
[download]

Another answer is to use glob'ing:

while (<*.dat>) {
 my $file = $_;
 open(...etc.,etc.);
 ...
 }
}
[download]