open(lookME, ">", "temp1.txt") || die print "Datei konnte nicht erstellt werden!\n";
print lookME $result->content();
close(lookME);
open(IP,"<","temp1.txt") || die print "Datei konnte nicht geoeffnet werden!\n";
@IN = <IP>;
close(IP);
unlink "temp1.txt" || die print "Datei konnte nicht geloescht werden!\n";