Select Code to Download

#!/usr/bin/perl 

...
my $object = do "persistB.obj";

print $object->foo();

$VAR1 = bless( {}, 'b' );