Select Code to Download

opendir DIR,$dir or die "Can't open directory.\n";
@dir = readdir DIR;
...
    else {print $_," is not a file or a directory!\n";}
    
}

foreach(@dir) {
    my $path = "$dir/$_";  # prepend dir
...
    elsif (-f $path) {print $path," is a file.\n";}
    else {print $path," is not a file or a directory!\n";}
}