{
    my $foo = "a lexical variable";
       $bar = "a package variable";

    print " \$foo is: ", (defined $foo ? $foo : "undefined"), $/;
    print " \$bar is: ", (defined $bar ? $bar : "undefined"), $/;
}

print "\$foo is: ", (defined $foo ? $foo : "undefined"), $/;
print "\$bar is: ", (defined $bar ? $bar : "undefined"), $/;


__output__

 $foo is: a lexical variable
 $bar is: a package variable
$foo is: undefined
$bar is: a package variable