hi,
$ua = new LWP::UserAgent;
$ua1 = new LWP::UserAgent;
hmm, den Fehler seh ich auch nicht auf Anhieb, wohl aber, dass Dein Script einwenig chaotisch aussieht, zb brauchst Du den UserAgent $ua doch nur einmal zu erstellen.
Tipp: Gibt die ge-fetchten Dokumente mal so aus, bevor Du die Datei schreibst.
Viele Grüße, Rolf