Select Code to Download

print header;
print <<EOF;
...
}
</script>
EOF

# If the form was properly submitted, save the data
if ($input{"go"} eq "DELETE") {
...
                          -onClick=>"return confirmOk()");

$query = "DELETE ....