#!/usr/bin/perl -w
print "What is your name? ";
$name = <STDIN>;
chomp $name;
if ($name eq "Aaron")
{
	print "Hello, Aaron. How good of you to join me.\n";
}
else
{
	print "Hello $name.\n";
}