For easy logon and password, use Net::EasyTCP. I have a few examples floating around, for example Sockets-File-Upload with Net::EasyTCP

You can easily adapt this to your purposes. Also read the latest docs for Net::EasyTCP, for it has improved since I wrote the above example. Below is a super simple example. Start the server first, and afterwards start the client. Be patient, and wait for the client to establish the encryption. If it uses RSA, it can take about 5 seconds for the first transfer to occur( makes and transfers keys).... then it works fast. You can force it to use faster (or no encryption). Read the docs.

#server

#!/usr/bin/perl
use warnings;
use strict;
use Net::EasyTCP;


#my @nocrypt = qw(Crypt::RSA); #too slow, but more secure
#my @nocompress = qw(Compress::LZF); #just testing this feature

my $server = new Net::EasyTCP(
    host  =>  "localhost", 
    mode  =>  "server",
    port  =>   2345,
    password => "ztest",
    donotcheckversion => 1,
#    donotencryptwith => \@nocrypt,
#    donotencrypt => 1,
#    donotcompresswith => \@nocompress,
#    donotcompress => 1,
    welcome => "Hi! Wecome to the test server!\n",
    )
       || die "ERROR CREATING SERVER: $@\n";

$server->setcallback(
     data            =>      \&gotdata,
     connect         =>      \&connected,
     disconnect      =>      \&disconnected,
    )
     || die "ERROR SETTING CALLBACKS: $@\n";

$server->start() || die "ERROR STARTING SERVER: $@\n";
print "server started\n";
#######################################
sub gotdata() {
my $client = shift;
my $serial = $client->serial();
my $data = $client->data();
print "Client $serial sent me some data, sending it right back to them
+ again\n";
$client->send($data) || die "ERROR SENDING TO CLIENT: $@\n";
if ($data eq "QUIT") {
$client->close() || die "ERROR CLOSING CLIENT: $@\n";
}
elsif ($data eq "DIE") {
$server->stop() || die "ERROR STOPPING SERVER: $@\n";
}
}
######################################
sub connected() {
my $client = shift;
my $serial = $client->serial();
print "Client $serial just connected\n";
}
####################################
sub disconnected() {
my $client = shift;
my $serial = $client->serial();
print "Client $serial just disconnected\n";
}
[download]

# client

#!/usr/bin/perl
use Net::EasyTCP;

$client = new Net::EasyTCP(
mode            =>      "client",
host            =>      'localhost',
port            =>      2345,
password        =>      ztest
)
|| die "ERROR CREATING CLIENT: $@\n";

my $encrypt = $client->encryption();
my $compress = $client->compression();
print "encryption method ->$encrypt\ncompression method ->$compress\n"
+;

my $encryption  = $client->encryption()  || "NO";
my $compression = $client->compression() || "NO";

print "Using $encryption encryption and $compression compression\n\n";




#Send and receive a simple string
$client->send("HELLO THERE") || die "ERROR SENDING: $@\n";
$reply = $client->receive() || die "ERROR RECEIVING: $@\n";
print "$reply\n";

#Send and receive complex objects/strings/arrays/hashes by reference
#%hash = ("to be or" => "not to be" , "just another" => "perl hacker")
+;
#$client->send(\%hash) || die "ERROR SENDING: $@\n";
#$reply = $client->receive() || die "ERROR RECEIVING: $@\n";
#foreach (keys %{$reply}) {
#print "Received key: $_ = $reply->{$_}\n";
#}

#Send and receive large binary data
#for (1..4096) {
#for (0..255) {
#$largedata .= chr($_);
#}
#}
#$client->send($largedata) || die "ERROR SENDING: $@\n";
#$reply = $client->receive() || die "ERROR RECEIVING: $@\n";

#$client->close();
$client->send('Hello from Joe') || die "ERROR SENDING: $@\n";
$reply = $client->receive() || die "ERROR RECEIVING: $@\n";
print "$reply\n";

while(1){
$input = <STDIN>;
$client->send($input) || die "ERROR SENDING: $@\n";
$reply = $client->receive() || die "ERROR RECEIVING: $@\n";
print "$reply\n";
}
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.