Select Code to Download

sub download {
...
}

#!/usr/bin/perl
 
...
+pName);
    $status = $zip->writeToFileNamed($zipName);
}

#!/usr/bin/perl 
#use warnings;
...


}