Mega Code Archive

 

Categories / Perl / Language Basics

 

Switches between packages

#!/usr/local/bin/perl  package pack1;  $var = 26;  package pack2;  $var = 34;  package pack1;  print ("$var\n");