Language Basics Perl

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