#!/usr/bin/perl
print "What is your name? ";
$name=<STDIN>;
chop($name);
if ($name eq "Randal") { print "Hello, Randal! How good... \n";}
else { print "Hello, $name!\n";}