#!/usr/bin/perl -w
print "Content-type: text/html\n\n";
use CGI::Carp qw(fatalsToBrowser);


$tmpfile = "abc.zip";
#if( system("unzip", "-qt", $tmpfile) ) {
#    my ($sig, $ret) = ($?&255, $?>>8);
#    die "unzip -t died from signal $sig" if $sig;
#    die "unzip -t exited with code $ret" if $ret;
#die "unzip failed"; }


system("unzip -qt $tmpfile") && die "theunz failed";