$ perl -we 'use strict; my $rv = 42 for (1); print $rv,$/'
Use of uninitialized value in print at -e line 1.