open IN, "<$input_file" or die_now("Die Input-File konnte nicht eingelesen werden: $!");;
                $versendete_Requests = @Requests = split "\n%%%", do { local $/; <IN> };
        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";
        }