#!usr/bin/perl -w

print "What is your name? ";
$name = <STDIN>;
chomp($name);
if ($name eq "Randal") {
     print "HELLO, RANDAL! HOW GOOD OF YOU TO BE HERE!\n";
} else {
 print "HELLO, $name!\n"; #ORDINARY GREETING
}