#!/usr/bin/perl use CGI; my $q = new CGI; my $cf = $q->param('cf'); # Needs to be untainted print $q->header, $q->start_html, $q->h2("$cf,$ct");