#!usr/bin/perl<br>
print "What is your name? ";<br>
$name = <STDIN>;<br>
CHOP($NAME);<br>
IF ($NAME EQ "RANDAL") {<br>
     PRINT "HELLO, RANDAL! HOW GOOD OF YOU TO BE HERE!\N";<br>
} ELSE {<br>
   PRINT "HELLO, $NAME!\N"; #ORDINARY GREETING<br>
}<br>