open IN, "<$input_file" or die_now("Die Input-File konnte nicht eingelesen werden: $!");; $versendete_Requests = @Requests = split "\n%%%", do { local $/; }; close IN; for (@Requests){ print "\n\n", $_, "\n\n"; ($Request, $Parameter) = split "\n&&&", $_; $Request = "$Request"; print "\n\n", $Request, "\n\n"; print "\n\n", $Parameter, "\n\n"; $Request = "GET www.ebay.de/ HTTP/1.0\r\nUser-Agent: Opera/9.25 (X11; Linux i686; U; en)\r\nHost: www.ebay.de\r\nAccept: text/html\r\nAccept-Language: de-DE,de;q=0.9,en;q=0.8\r\nAccept-Charset: iso-8859-1, utf-8, utf-16, *;q=0.1\r\nProxy-Connection: close\r\n\r\n"; print "\n\n", $Request, "\n\n"; }