#!/usr/bin/perl
# Pseudo-Perl; some code shortened to ellipses or text.
use IO::Socket;

my $sock = IO::Socket::INET->new(...) or die "...";

while (not yet done) # Not sure how you want to determine this
{
    my $line;
    print $sock "send this to server\n";
    chomp($line = <$sock>);
    #<process $line (one line read from server's response)>
}
__END__

##</code><code>##

$fork_errlvl = 1 unless defined $pid;
die "Error forking client: Reason: $!\n" if $fork_errlvl != 0;

##</code><code>##

die "..." unless defined $pid;

##</code><code>##

defined($pid) or die "..."