use 5.010;
use strict;
use warnings;

use Socket;

socket my $sock, PF_INET, SOCK_STREAM, getprotobyname("tcp");
bind $sock, sockaddr_in(7777, INADDR_ANY);
listen $sock, 0;
while (accept my $cli, $sock) {
    sleep 60;
}