use warnings; # turn warnings on
use CGI;      # use Stein's CGI.pm for parsing params

my $q = new CGI; # create the CGI.pm instance

# get the customer's name (in the name parameter)
# place in in variable $customer_name
my $customer_name = $q->param("name")

# if the customer's name is "Bobby"
# print "Hi Bobby"
if ($customer_name eq "Bobby") {
    print "Hi Bobby\n";
} else { # if not, print "You're not Bobby"
    print "You're not Bobby\n";
}