#!/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";