Internal Server Error (Source)

[Anonymous]

Hier noch der Sourcecode des Programms !

<<<<<<<<<<<<<  Anfang <<<<<<<<<<<<<<<<

#/usr/bin/perl

use strict;
use IO::Socket;

my ($remote, $zeile);

my $host  = "195.48.245.44";
my $port  = "5202";

$remote = IO::Socket::INET->new( Proto => "tcp",
PeerAddr => $host,
PeerPort => $port,
);

unless ($remote) { die "No connection!" }

$remote->autoflush(1);  

print $remote "i\n";  
print $remote "e\n";  

print "Content-type: text/html\n\n";  
while (<$remote>) { print }	  
  
close $remote;  

<<<<<<<<<<<<<  Ende   <<<<<<<<<<<<<<<<