Select Code to Download

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

while (<*.dat>) {
 my $file = $_;
...
 ...
 }
}