$name=newName();
$entry=newEntry();

$book = "book.txt";
open(BOOK, ">>$book");
print BOOK "\n$name says:\n";
print BOOK "$entry\n";
close(BOOK);

sub readLine() {
	my ($output);
	$output = <STDIN>;
	chomp($output);
	return($output);
}
sub newName() {
	print("Your Name: ");
	$name=readLine;
	return($name);
}
sub newEntry() {
	print("Your Entry: \n");
	$entry=readLine;
	return($entry);
}