#!/usr/bin/perl -w
use strict;

package Test;

   my $var = 15;


package Test2;

   print $Test::var;
   print $var;