use strict;
use warnings;

use IO::Socket::INET;

my $server = IO::Socket::INET->new(Proto => "tcp", LocalAddr => "localhost", LocalPort => $ARGV[0], Listen => 10);
my $connection = $server->accept();
print "Connected\n";
while (1) {
	print $connection "$ARGV[0]\r\n";
	print "sent $ARGV[0]\n";
	sleep($ARGV[1]);
}