print STDERR "my \$valid_dir is: $valid_dir \n";
print STDERR "my \$valid_zip is: $valid_zip \n";

##</code><code>##

print $query->header;
print $query->start_html('My Application');

##</code><code>##

my $safe_uploads_directory = '/tmp/uploads';
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
my $zip = Archive::Zip->new( $valid_zip );
chdir( $safe_uploads_directory ) && $zip->extractTree();