Mega Code Archive

 

Categories / Perl / Language Basics

 

Scope change

#!/usr/bin/perl -w use strict; package First; our $scalar = "first";      print $scalar;              package Second; print $scalar;              our $scalar = "second"; print $scalar;              package Third; {     our $scalar = "inner";      print $scalar;          } print $scalar;