Select Code to Download

#! /usr/local/bin/perl5.9.5

...
# 1000
# Use of uninitialized value $x in print at ./myif line 13.
# 2000

sub c {
    state $count = 10;
...
print c(), $/; # 10
print c(), $/; # 11
print c(), $/; # 12