1 2 3 4 5 6 7
#!/usr/bin/perl use strict; use warnings; use Net::Frame::Layer qw(:subs); print getHostIpv6Addr('www.google.com')."\n";