#!/usr/bin/perlour $scalar = "global";print "\$scalar is a $scalar variable\n";{ my $scalar = "lexical"; print "\$scalar is now a $scalar variable\n";}print "\$scalar is a $scalar variable again\n";