[FWP] rewrite and simplify (out of memory)

[Vicki Brown <vlb@cfcl.com>]

This one isn't very technical, so the "I'm new to Perl" folks can play

 From the MacPerl list a while back

   > This code gives me an out of memory error

	print "Please select a file to view: ";
	chomp($file_name = <STDIN>);

	open(FILE, "$file_name");
	@newsgroups = <FILE>;
	print @newsgroups;
	close FILE;

-- --
        |\      _,,,---,,_       Vicki Brown <vlb@cfcl.com>
  ZZZzz /,`.-'`'    -.  ;-;;,_   Journeyman Sourceror: Scripts & Philtres
       |,4-  ) )-,_. ,\ (  `'-'  P.O. Box 1269  San Bruno  CA  94066
      '---''(_/--'  `-'\_) http://www.cfcl.com/~vlb  http://www.macperl.com

==== Want to unsubscribe from Fun With Perl?
==== Well, if you insist... Send mail with body "unsubscribe" to
==== fwp-request@technofile.org