http://www.perlmonks.org?node_id=542744

jesuashok has asked for the wisdom of the Perl Monks concerning the following question:

Hi all

what is happening in the below code ?
Could any one clear me with nice answers ?

#!/bin/perl -w use strict; sub readZip() { open FH, '/dev/null'; while (<FH>) { print "Got something!\n"; } } my $x = 'hi'; for ($x) { readZip(); } print "Undefined! $x\n" unless defined $x;

"Keep pouring your ideas"

2006-10-07 Unapproved by planetscape once evidence of habitual plagiarism uncovered.