My co-worker has this tendency to dig up and use every single obscure feature of Perl. He showed me this one the other day, for those of you who are -really- into the whole OO thing: use IO::Handle; open(FILE, "whatever"); while($line = *FILE->getline) { *STDOUT->print($line); } *STDOUT->print("This is just plain wrong.\n"); Some sort of weird backwards compatibility thing <shudder>. -- Michael G Schwern schwern@pobox.com http://www.pobox.com/~schwern /(?:(?:(1)[.-]?)?\(?(\d{3})\)?[.-]?)?(\d{3})[.-]?(\d{4})(x\d+)?/i ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe