use strict;
use warnings; 

print $foo;   # Warning here, undefined value

no warnings; 
print $foo;   # No warning now 

use warnings; 
print $foo;  # Warning again