Thanks, that's really cool, i'm just trying to use the code in a program i'm writing and I get the following errors when I try and unzip my file, is there a problem with the zip file do you think?

format error: can't find EOCD signature
 Archive::Zip::Archive::_findEndOfCentralDirectory('Archive::Zip::Arch
+ive=HASH(0x8e87c00)','IO::File=GLOB(0x9196204)') called at /usr/lib/p
+erl5/site_perl/5.8.3/Archive/Zip.pm line 955
 Archive::Zip::Archive::readFromFileHandle('Archive::Zip::Archive=HASH
+(0x8e87c00)','IO::File=GLOB(0x9196204)','tooled-up.gz') called at /us
+r/lib/perl5/site_perl/5.8.3/Archive/Zip.pm line 929
 Archive::Zip::Archive::read('Archive::Zip::Archive=HASH(0x8e87c00)','
+tooled-up.gz') called at zip.pl line 13
Error reading zip file. at zip.pl line 13.
[download]