du führst in zeile 37 ein print aus. print hat in der regel einen rückgabewert von 1. diesen speicherst du in $tmpXML. das ist bestimmt so nicht gewollt.
print bedeutet, dass etwas auf stdout ausgegeben wird, also in der regel auf dein terminal.
du möchtest aber doch den rückgabewert in einer variable speichern und nicht ausgeben.
my $tmpXML = join '', <$sock>;

(die vorausdeklaration finde ich unnötig, daher habe ich das my() hier dazugepackt.)

wieso benutzt du eigentlich IO::Socket::SSL? funktioniert LWP::UserAgent hier nicht?