Scott Gifford wrote: >> First off I would convert it to using IO::File or somehow get >> rid of using globs. Such as my $fh = select; But this won't >> solve your error, just makes the code easier to work with. >I actually tried that, but couldn't get it to work: > > #!/usr/bin/perl -Tw > > use strict; > > print "Content-type: text/plain\n\n"; > > my $fh = select; > print $fh "hi\n"; > >results in: Can't use string ("main::STDOUT") as a symbol ref while >"strict refs" in use at ./test.pl line 8.
Consider reading this excellent article: http://perl.plover.com/local.html (the section "The First-Class Filehandle Trick"). P.S. Sorry for breaking the thread: I've accidentally removed it and I'm now using the message from a mod_perl list mail archive.