#! perl
use strict;
use warnings;
use MyClass;

for my $foo (1 .. 2)
{
    my $o = MyClass->new({ number => $foo });
       $o->bar($foo);
}

##</code><code>##

16:56 >perl 1576a_SoPW.pl
6052 1 MyClass=HASH(0x4b4ca8) loading Odd at MyClass.pm line 8.
6052 Loaded Odd at Odd.pm line 4.
6052 1 MyClass=HASH(0x4b4ca8) I am Odd at Odd.pm line 7.
6052 2 MyClass=HASH(0x2274048) loading Even at MyClass.pm line 8.
6052 Loaded Even at Even.pm line 4.
6052 2 MyClass=HASH(0x2274048) I am Odd at Odd.pm line 7.

16:56 >