#!c:\perl\bin\perl.exe open(OUT, ">sample4.out") || die "Could not open sample4.out: $!"; print "Enter some lines of text (stop to quit). "; $in = <STDIN>; chomp $in; while ($in !~ /^stop$/i) { print OUT "$in\n"; print "Enter some lines of text (stop to quit). "; $in = <STDIN>; chomp $in; } close(OUT); open(IN, "sample4.out"); print "You entered:\n"; while(<IN>) { print $_ } close(IN);