#!/usr/bin/perl

print "no warnings out here!" . $undef_var;
{
    use warnings;  # now warnings are turned on
    print "this will warn" . $undef_var;
}

# now warnings are off again.