Looking at the documentation of IO::Socket::SSL, it says

Alternatively you can enforce IPv4 globally by loading IO::Socket::SSL with the option 'inet4', in which case it will use the IPv4 only class IO::Socket::INET as the super class.

So, maybe the following works:

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

(I only knew to look there from having seen a presentation by noxxi on this topic)