use Sys::Hostname::FQDN qw(asciihostinfo);
my ($name,$aliases,$addrtype,$length,@addrs)=asciihostinfo();
print "Local IP:" . $addrs[0] . "\n";
print "VPN IP:" . $addrs[1] . "\n";