Help for this page

Select Code to Download


  1. or download this
    print STDERR "my \$valid_dir is: $valid_dir \n";
print STDERR "my \$valid_zip is: $valid_zip \n";
  2. or download this
    print $query->header;
print $query->start_html('My Application');
  3. or download this
    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();