#!/usr/bin/perl
use warnings;
use strict;

use Shared_OO;

my $o = 'Shared_OO'->new;

print $o->test_val;

for my $pair ($o->test_list) {
    print "@$pair\n";
}