Compress the IPv6 in Perl Language