#!/usr/bin/perl

use strict;
use warnings;

use CGI::Carp qw(fatalsToBrowser); # not needed per se, but very useful for debugging
use CGI;

my $cgi = new CGI();

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