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


in reply to Re^3: Have you netted a Perl Monk or Perl Pretender in 5 minutes or less?
in thread Have you netted a Perl Monk or Perl Pretender in 5 minutes or less?

Um. This is really a serious question. Is there something useful that example accomplishes, or is it just trying to point out a Perl anonomly (some might call it broken behavior)?
#!/usr/bin/perl -w use strict; our $c = 2; print "Before: c=$c\n"; my $c = 1 unless $c; print "After: c=$c\n";