File::Slurp has a function to exclude . and ..

my @zd = read_dir($zipdir);
[download]

You may need to prepend the directory name to each file before you unzip ("prefix" option).