use IO::Socket; my $sock = new IO::Socket::INET ( LocalHost => 'hosty', LocalPort => '6969', Proto => 'tcp', Listen => 1, Reuse => 1, ); die "Could not create socket: $!\n" unless $sock; my $new_sock = $sock->accept(); while(<$new_sock>) { print $_; } close($sock);