Language Basics Perl

#!/usr/bin/perl
use warnings;
use strict;
my $text = "This is the child";
{
    my $text = "This is block scoped";
    print "$text \n"; 
}
print "$text \n";