#!/usr/bin/perl 

package a;

my $bar = 'bar';

sub foo {
  my $self = shift;
  @_ ? $bar = shift: $bar;
}

package b;
use base 'a';

sub new {
  my $class = shift;
  my $self = bless {}, ref($class)||$class;
  $self->foo('cow');
  return $self;
}


package main;

my $object = do "persistB.obj";

print $object->foo();

##</code><code>##

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