Have you read the documentation for LWP::Socket? Did you read this part...?

Beware: New code should not use this module. The IO::Socket::INET module provide the standard Perl interface to OO Internet sockets. Even LWP is now rewritten to use IO::Socket::INET throughout.

Hey tobyink, thanks for the reply.

No, I did not see that... But I do now, thanks.
So, should I just use the "use Socket;" Perl Module? This one here --> "http://search.cpan.org/~dapm/perl-5.14.4/ext/Socket/Socket.pm"?

Sorry, I had just Googled something like "Perl Script, make socket connection" or something like that, and I think
that was just one of the first ones that came up.


Thanks again for the reply!


Thanks,
Matt

The module that LWP::Socket suggests is IO::Socket::INET. That's a core module, bundled with Perl, so you already have it installed.

package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name

#!/usr/bin/perl -w
# client.pl
#----------------

use strict;
use Socket;

### Set the Protocol we will use to connect to the Remote Server:
my $proto = getprotobyname('tcp');

### Declare my Socket Connection:
my($sock);
socket($sock, AF_INET, SOCK_STREAM, $proto) or die "$!";

### Set the Remote Host's IP Address and which port we will connect to
+:
my $remote = "192.168.x.xxx";
my $port = 3009;

### Resolve the remote IPAddr to a actual IP Address:
#     *'inet_aton' Takes a string representing an IP Address and conve
+rts it to an ACTUAL IP Address (*not a string)...
my $iaddr = inet_aton($remote) or die "Unable to resolve hostname: $re
+mote... $!\n";

### Build the Socket Address structure using PORT and IPADDR:
my $peerAddress = sockaddr_in($port, $iaddr);

# Initiate the Socket Connection or Exit if Failed to Connect:
connect($sock, $peerAddress) or die "Connection Failed: $!\n";
print "Connected to $remote Server on port $port\n";


# Send Initial "Accept" String:
#    *This string MUST be sent first, because the server receiving the
+ data must see 
#     this 1st in order to accept the incoming data from this script..
+.
send($sock, "<getTickerData/>", 0);

### While $line is still equal to the Socket Connection Handle, then..
+.
while (my $line = <$sock>)
{
    if ($line =~ "VALID REQUEST RECEIVED") {
        print "***GOT A VALID RESPONSE***\n";
        send($sock, "Send some data for remote server", 0);
    }
}


close($sock);

exit 0;
[download]

... LWP-attic-1.00 ...

You found the furless bony body of a dead squirrel!:P