Help for this page

Select Code to Download


  1. or download this
    chdir($dir) && system("unzip", $unzip);
  2. or download this
    #!/usr/bin/perl -T
  3. or download this
    my $dir = $query->param('dir');
my $zip = $query->param('zip');
...
my $valid_zip = $1;

chdir($valid_dir) && system("unzip", $valid_zip);