#!/usr/bin/perl

package Module;

$Foo = 10;
@Foo = (10, 20, 30);
%Foo = ('Wall' => 'Larry', 'Miles' => 'Doug');

$Variable = 100;
@Variable = (100, 200, 300);

$main::Export = 'Something';

package main;

*Bar = *Module::Foo;

print "\nOriginal:\n\n";

print "\$Module::Foo: $Module::Foo\n";
print "\$Bar: $Bar\n";

foreach my $last_name (keys(%Bar))
{

  print "$last_name, $Bar{$last_name}\n";
  print "$last_name, $Module::Foo{$last_name}\n";

}

$Bar = 20;
$Bar{'Wall'}  = 'Doug';
$Bar{'Miles'} = 'Larry';

print "\nModified:\n\n";

print "\$Module::Foo: $Module::Foo\n";
print "\$Bar: $Bar\n";

foreach my $last_name (keys(%Bar))
{

  print "$last_name, $Bar{$last_name}\n";
  print "$last_name, $Module::Foo{$last_name}\n";

}

print "\nPartial Alias\n\n";

*Fred = \$Module::Variable;

print "\$Module::Variable: $Module::Variable\n";
print "\$Fred: $Fred\n";
print "\@Module::Variable: @Module::Variable\n";
print "\@Fred: ", @Fred, "\n";

print "\nExported:\n\n";

print "\$Export: $Export\n\n";