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

my $remote_host = "127.0.0.1";
my $remote_port = 950;
my $socket;

$socket = IO::Socket::INET->new(PeerAddr => $remote_host, PeerPort => $remote_port, Type => SOCK_STREAM, Proto => "tcp") || die "Problem: $!\n";

print $socket "sp100\r";
my $data = <$socket>;
print STDOUT $data;

close $socket;