Select Code to Download

while ($file = <$dir\\*.txt>) {
  #do your stuff
}

opendir    ( DIR, $dir )      || die "Cannot open directory $dir: $!";
while ( defined( $file = readdir(DIR) ) ) {
...
  }
}
closedir DIR;