#!/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( );
}

##</code><code>##

#!/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);
}

##</code><code>##

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

use CGI;

sub new {
   my ($class) = @_;

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

   return bless({
      q    => $q,
      name => $name,
   }, $class);
}

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

{
   my $self = __PACKAGE__->new();
   $self->print_response();
}