Select Code to Download

foreach(grep ! /^\.{1,2}$/, readdir(PRINT)){
    #do work
}

my $dir = '/path/to/dir';
foreach(glob('$dir/*')){
    #do work
}

my @array = readdir(PRINT);
foreach(@array[2..$#array]){
  #do work
}