use IO::Socket;

my $server = IO::Socket::INET->new(
    PeerAddr => 'localhost',
    PeerPort => 5050,
    Proto    => 'tcp'
) or die "Can't create client socket: $!";

open FILE, "in";
while (<FILE>) {
    print $server $_;
}
close FILE;