#!/usr/local/apps/perl/bin/perl

print "What is your name: ";
chop( $name = <STDIN> );
print "Nice to ";

if ( $name eq "John" ) {
	print "see you again, $name!\n";
} else {
	print "meet you, $name!\n";
}