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

use CGI;

sub print_response {
    my ($name) = @_;
    print "Content-type: text/plain\n\n";
    print "Thank you, $name!";
}

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

   print_response($name);
}