print("What's your name?\n");
$name=readLine();

print("Wow, $name, you're even more good-looking than Cassandra!\n");

sub readLine() {
	my ($output);
	$output = <STDIN>;
	chomp($output);
	return($output);
}