#!/usr/bin/perl -w
use strict;
use CGI ':standard';

my $agentname = param('agentname') || 'default';

print header(), start_html( -title => 'Joe Bob' );

if( $agentname eq 'Joe Bob' )
{
   print h1( 'Header for Joe Bob' ),
         p( 'Text for Joe Bob' );
}
else #default
{
   print h1( 'Default' );
}

print end_html();