Select Code to Download

    use FileHandle;
    my $fh = new FileHandle;
...
    opendir($fh, $dir) or die "Unable to open directory '$dir' ($!)\n"
+;
    my @files = readdir($fh);
    closedir $fh;

    map { $_ = "$dir/$_" } @files;    # Prepend "/tmp" to all files