$Source::storage = Storage->new();
# in package Destination
do_stuff_to($Source::storage); 

##</code><code>##

package Destination;
@ISA = qw(Source);
...

# main code
$Source::storage = Storage->new();
# Destination can now use $storage, hurrah