use strict;
use warnings;
use IO::Socket::INET;

my $socket = IO::Socket::INET->new(
    PeerAddr => '127.0.0.1',
    PeerPort => 43618,
    Proto    => 'tcp',
    Type     => SOCK_STREAM,
) or die "client: can't connect to 127.0.0.1:43618";

warn "client connected to server\n";

while ( 1 ) {
    warn "send pid to server\n";
    eval { print $socket "$$\n" };
    last if $@;
    sleep 1;
}

warn "lost connection\n";
close($socket);