Select Code to Download

opendir(PWD,"$next") && my @files = readdir PWD
    or die "Open \"$_\" failed: $!";

opendir(PWD,$name) or die "$name: $!";
my @files = readdir(PWD) or die "$name: $!";