Mega Code Archive

 

Categories / Perl / File

 

Glob pack

#!/usr/bin/perl use warnings; use strict; sub define_global {     use vars qw($package_variable); #scope NOT limited     $package_variable = "defined in subroutine"; } print $package_variable;  define_global; print $package_variable;