Inheritance in Perl is handled via the @ISA array. You should be able to do something like this:

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;
[download]

HTH