#!/usr/bin/perl -w
print "What is your name? ";
my $name = <STDIN>;
chomp($name);
if (uc($name) eq 'RANDAL') {
    print "Hello, Randal! How good of you to be here!\n";
} else {
    print "Hello, $name\n";
}

__END__