package MyModule; use Storable; use vars qw(@ISA); @ISA=qw(Storable); #oops! original had quotes in it. # other methods # overrides Storable's thaw sub thaw { my $this = shift; $this->SUPER::thaw( @_ ); $this->post_loaded_function(); } 1;