use Net::Patricia;
use Storable qw(nfreeze thaw);

my $pt = new Net::Patricia(AF_INET6);
$pt->add_string(...)
... etc

and then:

my $frozen = nfreeze($pt);
undef $pt;
$pt = thaw($frozen);