#!perl -w use strict; use IO::Socket::SSL 'inet4'; use XML::Feed;