Select Code to Download

$ ./unzipper nonexistant.zip
IO error: opening nonexistant.zip for read : No such file or directory
+ 
...
        Archive::Zip::Archive::new('Archive::Zip::Archive','nonexistan
+t.zip') called at /usr/local/lib/perl5/site_perl/5.8.0/Archive/Zip.pm
+ line 211
        Archive::Zip::new('Archive::Zip','nonexistant.zip') called at 
+./unzipper line 6
Unable to open nonexistant.zip:   at ./unzipper line 6.

#!/usr/bin/perl -w

...
   $zip->extractMember($m);
 }
}

$ ./unzipper nonexistant.zip
nonexistant.zip: No such file or directory