#!/usr/local/bin/perl

package pack1;
$var = 26;
package pack2;
$var = 34;
package pack1;
print ("$var\n");
