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

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