#!/usr/local/bin/perl -w use strict; my $rm = `rm /home/sumsite/public_html/foo/admin/cd.zip`; my $cmd = `zip -q -r ./cd cd`; print "Location: http://www.sumsite.com/foo/admin/cdZip.php\n\n";