#!/usr/bin/perl -T -I .

print "Content-type: text/javascript\n\n";

my %params;

# Find args
for my $pair (split("&", $ENV{'QUERY_STRING'})) {
  my ($param, $value) = split("=", $pair);
  $params{$param} = $value;
}

print "$(\"div#tgt\").html('muil houwe jongu! Ik zei toch '" + $params{'foo'} + ");";
print "\n";