Help for this page

Select Code to Download

Select or download this

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

Select or download this

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