Select Code to Download

#!/usr/bin/perl

...

print $cgi->header("text/javascript");
print "alert('", $cgi->param("value1") || "nothing", "');\n";