#!/usr/cisco/bin/perl -w
use strict;

use CGI;

our $q;
our $name;

sub print_response {
    print "Content-type: text/plain\n\n";
    print "Thank you, $name!";
}

{
   local $q = CGI->new;
   local $name = $q->param('name');

   print_response( );
}