IO::Socket::INET sender receiver prob (testing local)

[GeniuS22]

Im having problem with this
the error is on the receiver
cannot print sockets
&quot;Use of uninitialized value in print at D:\re.pl line 18, <GEN1> line 1.&quot;

please help me


#!perl -w
# sender
use IO::Socket;
&comunicate;
sub comunicate {
print &quot;Mes :&quot;;
my $message = <STDIN>;
chomp $message;
my $sock = new IO::Socket::INET (
PeerAddr => 'localhost',
PeerPort => '7070',
Proto => 'tcp',
);
die &quot;Could not create socket: $!\n&quot; unless $sock;
print $sock &quot;$message\n&quot;;
close($sock);
&comunicate;
}
# note has to be broken
# end sender
#!perl -w
# receiver
use IO::Socket;

my $sock = new IO::Socket::INET (
LocalHost => 'localhost',
LocalPort => '7070',
Proto => 'tcp',
Listen => 1,
Reuse => 1,
);

die &quot;Could not create socket: $!\n&quot; unless $sock;

my $new_sock = $sock->accept();

while(defined(<$new_sock>)) {
print $_;
}

close($sock); Knowledge is the first step to Greatness!!!

 

[GeniuS22]

never mind found it Knowledge is the first step to Greatness!!!