#!/v/guest/sw/bin/perl -w

use Data::Locations;
use Data::Dumper;

$loc0 = Data::Locations->new();
$loc1 = Data::Locations->new();

print $loc0 "Top";
$loc2 = $loc0->new();
print $loc0 "Middle";
$loc3 = $loc0->new();
print $loc0 "Bottom";

print $loc2 "Left";
$loc4 = $loc2->new();
print $loc2 "Right";

print $loc3 "Begin";
print $loc3 $loc4;
print $loc3 "End";

print $loc1 "First";
print $loc1 $loc4;
print $loc1 "Last";

print $loc4 "Here";

$line = Dumper(\${*{$loc0}});
$line =~ s!\$VAR1!\\\${\\*LOCATION0}!;
$line =~ s!(\n +)!$1          !g;
print $line;

$line = Dumper(\@{*{$loc0}});
$line =~ s!\$VAR1!\\\@{\\*LOCATION0}!;
$line =~ s!(\n +)!$1          !g;
print $line;

$line = Dumper(\%{*{$loc0}});
$line =~ s!\$VAR1!\\\%{\\*LOCATION0}!;
$line =~ s!(\n +)!$1          !g;
print $line, '-' x 76, "\n";

$line = Dumper(\${*{$loc1}});
$line =~ s!\$VAR1!\\\${\\*LOCATION1}!;
$line =~ s!(\n +)!$1          !g;
print $line;

$line = Dumper(\@{*{$loc1}});
$line =~ s!\$VAR1!\\\@{\\*LOCATION1}!;
$line =~ s!(\n +)!$1          !g;
print $line;

$line = Dumper(\%{*{$loc1}});
$line =~ s!\$VAR1!\\\%{\\*LOCATION1}!;
$line =~ s!(\n +)!$1          !g;
print $line, '-' x 76, "\n";

$line = Dumper(\${*{$loc2}});
$line =~ s!\$VAR1!\\\${\\*LOCATION2}!;
$line =~ s!(\n +)!$1          !g;
print $line;

$line = Dumper(\@{*{$loc2}});
$line =~ s!\$VAR1!\\\@{\\*LOCATION2}!;
$line =~ s!(\n +)!$1          !g;
print $line;

$line = Dumper(\%{*{$loc2}});
$line =~ s!\$VAR1!\\\%{\\*LOCATION2}!;
$line =~ s!(\n +)!$1          !g;
print $line, '-' x 76, "\n";

$line = Dumper(\${*{$loc3}});
$line =~ s!\$VAR1!\\\${\\*LOCATION3}!;
$line =~ s!(\n +)!$1          !g;
print $line;

$line = Dumper(\@{*{$loc3}});
$line =~ s!\$VAR1!\\\@{\\*LOCATION3}!;
$line =~ s!(\n +)!$1          !g;
print $line;

$line = Dumper(\%{*{$loc3}});
$line =~ s!\$VAR1!\\\%{\\*LOCATION3}!;
$line =~ s!(\n +)!$1          !g;
print $line, '-' x 76, "\n";

$line = Dumper(\${*{$loc4}});
$line =~ s!\$VAR1!\\\${\\*LOCATION4}!;
$line =~ s!(\n +)!$1          !g;
print $line;

$line = Dumper(\@{*{$loc4}});
$line =~ s!\$VAR1!\\\@{\\*LOCATION4}!;
$line =~ s!(\n +)!$1          !g;
print $line;

$line = Dumper(\%{*{$loc4}});
$line =~ s!\$VAR1!\\\%{\\*LOCATION4}!;
$line =~ s!(\n +)!$1          !g;
print $line;