Select Code to Download

  DIR = opendir( "$area" ) or die "Can't read '$area' : $!";
  @files = readdir( DIR ) or die "Error reading from '$area' : $!";
  closedir( DIR ); # Don't care about errors here

  while ($file = readdir(DIR)) {
    ... do your stuff to $file ...
  }