my $socket = IO::Socket::INET->new(PeerAddr    => "127.0.0.1",
                                            PeerPort    => 41447,
                                            Proto       => "tcp",
                                            Type        => SOCK_STREAM,
                                            Timeout     => 300)
        or die "$!\n";

print $socket "command1\n";
print $socket "command2\n";
print $socket "command3\n";