or download this
$ perl -Mdiagnostics -wMstrict -le 'my $x if 0'
Deprecated use of my() in false conditional at -e line 1 (#1)
...
conditional. Some people have exploited this bug to achieve a kind of
static variable. Since we intend to fix this bug, we don't want
people relying on this behavior. ...