#!/usr/bin/perl
#
use Data::Dumper;

package Test;

$xxx = 10;
$yyy = 15;

package Test2;

$zzz = 20;

sub myprint {
    print "myprint says: $aaa\n";
}

package main;

$x = 1;

print "Before copying symbol table:\n";
print Dumper(\%Test::);
print Dumper(\%Test2::);

print *{Test2::aaa}{PACKAGE} . ", " . *{Test2:aaa}{NAME} . "\n";

%Test2:: = %Test::;

print "After copying symbol table:\n";
print Dumper(\%Test::);
print Dumper(\%Test2::);

${Test2::aaa} = 50;

print "After assigning to \$Test::aaa:\n";
print Dumper(\%Test::);
print Dumper(\%Test2::);

print "\$Test2::aaa = $Test2::aaa\n";

print join(' ', keys(%Test2::)) . "\n";
print *{Test2::aaa}{PACKAGE} . ", " . *{Test2:aaa}{NAME} . "\n";

print "\%main:::\n";
print Dumper(\%main::);

Test2::myprint();