Select Code to Download

$url = "$From-a-Transform-of-the-Makedb.pl-Results"; 
print "Location: $url\n\n";
exit;

    `perl makedb.pl > testout.txt`;
    sleep 1 while ( !(-e "testout.txt") );
...
# Paste the code into a new perl file. Then in Unix:
# $ perl x.pl 
#-----

my $url = $From-a-Transform-of-the-Makedb.pl-Results; # See the code j
+ust above
print redirect( -URL => $url);

print qq~</body>~;
blahblahcode;
print qq~</html>~;

    sub PrintHead {
    print qq~Content-type: text/html\n\n~;
...
    ~;
}