add script to get VPN server IP

I've never used perl, but maybe you guys can figure out how to execute this script before anything bad is done to the DNS, and then read in the IP instead of using a hardcoded value.