#file state.pl
sub foo {
    my $bar if 0;
    $bar++;
    print "foo called $bar times\n";
}
foo for 'a'..'f';
__END__
Deprecated use of my() in false conditional at state.pl line 2.
foo called 1 times
foo called 2 times
foo called 3 times
foo called 4 times
foo called 5 times
foo called 6 times