Select Code to Download

package TEST;
use strict;

...
}

1;

my $test = new TEST qw( foo bar baz );

$test->foo = 3;
$test->bar = "Boy is this a messed-up object!";
$test->baz = "I bet someone else has a better way to do this.";