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