#!/usr/bin/perl

use strict;
use warnings;

use IO::Socket;

my $server = IO::Socket::INET->new(LocalPort => 5000,Listen =>5);

while (my $client = $server->accept()) {
	foreach my $i (0..1000) {
		sleep (1);
		print $client $i . "\n";
	}
	close $client;
}