use strict;

sub w {
	my $wtf = 'xxx' if 0;
	warn $wtf;
	
	$wtf = "zzz";
};

w();
w();

##</code><code>##

Warning: something's wrong at t12.pl line 5.
zzz at t12.pl line 5.

##</code><code>##

Warning: something's wrong at t12.pl line 5.
Warning: something's wrong at t12.pl line 5.