Perl script to detect the existence of transparent proxies