package Counter; sub TIEHANDLE { my $class = shift; my $start = shift; return bless \$start => $class; } sub READLINE { my $self = shift; return ++$$self; } 1;