#!/usr/bin/perl use warnings; { print "This is a first level block. \n"; { print " This is a second level block. \n"; } }