Select Code to Download

open(X,">$time.pl") or die "$!";
print X $child; 
close(X);

system "perl $time.pl";

print "Location: $parent_url?d=1\n\n";

unlink "$time.pl";

#!perl -w

...
exit;
__END__
0

#!perl -w

...
print Z $_;
close(Z);
print "Location: pp.pl?d=1\n\n";