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