#!/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";
}