#!/usr/bin/perl --

my $f = undef;

print "$f\n";
use warnings;
print "$f\n";
no warnings;
print "$f\n";
__END__

Use of uninitialized value in concatenation (.) or string at - line 7.