#!/usr/local/bin/perl
#where's wally?
#A very simple example in command line perl

print "What is your name?";
$userName = <STDIN>;
chop $userName;

if (uc($userName) eq "WALLY"){
    print "I found you at last!!!\n";
} else {
    print "Sorry.  I was looking for Wally.\n";
} # end if