Example 5-15. examples/scalars/scope.pl

#!/usr/bin/perl
use strict;
use warnings;

my $fname = "Foo";
my $lname = "Bar";
print "$fname\n";        # Foo
print "$lname\n";        # Bar

{
    my $email = 'foo@bar.com';
    print "$email\n";     # foo@bar.com
    print "$fname\n";     # Foo
    print "$lname\n";     # Bar

    my $lname  = "Moo";
    print "$lname\n";     # Moo
}
# $email does not exists
print "$fname\n";         # Foo
print "$lname\n";         # Bar