I'm trying to extract files of certain extention from a zip. The following code doesn't work. Any ideas out there, or other suggestions?
#!/usr/bin/perl
use File::Basename;
use File::Path;
use Archive::Zip;
use Archive::Extract;
my ($inputFile, $zipname, $unzipDir, $zipDir);
if ($ARGV[0]) {...