#!/usr/bin/perl

#verbindung aufbauen (port logischerweise 80/8080)

$host = open(FILE,"ip.txt");
$port = 80;
if(not defined($host)) {
    die "\ndatei kann nicht geoeffnet werden!\n";
}


use IO::Socket;
my $sock = new IO::Socket;(
                    PeerAddr => $host,
                    PeerPort => $port,
                    Proto    => 'tcp'
                );
print $sock "GET index.php HTTP/1.1\n";
print $sock "Host: $host\n";
print $sock "Accept: */*\n";
print $sock "Connection: close\n\n";

        my @answer=<$sock>;
            foreach my $a (@answer) {
               
 print $a; 
            }
my $answer = <$sock>;
print "$answer\n";