Select Code to Download

    my $dir="/path/to/dir";
    opendir(DIR, $dir) or die "can't open $dir: $!";
    my @files = readdir DIR;
    closedir DIR;