Select Code to Download

package One;

...
bless $cache{$row->{phone}};
}

package Two;

...
$hash = &One::query();
%hash = %$hash;