Mega Code Archive

 

Categories / Perl / Network

 

TCP server

#!/usr/bin/perl  use warnings; use strict; use IO::Socket; my $port = 4444; my $server = new IO::Socket::INET(     Proto     => 'tcp',     LocalPort => $port,     Listen => SOMAXCONN, ); print "Server running on port $port...\n"; while (my $connection = $server->accept) {     print "Client connected at ", scalar(localtime), "\n";     print $connection "You're connected to the server!\n";     while (<$connection>) {         print "Client says: $_";     }     close $connection;     print "Client disconnected\n"; }