Select Code to Download

use File::Spec;
next if $file eq File::Spec::->curdir() or $file eq File::Spec::->updi
+r();

use File::Spec::Functions qw/curdir updir/;
next if $file eq curdir() or $file eq updir();