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

use CGI;
my $q = CGI->new;
my $name = $q->param('name');
print_response( );

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