open(STORY,$storyfile)|| die "Could not write to $filename\n";
	printf STORY $story;
	close (STORY);