#tcpclient.pl

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use IO::Socket::INET;
use Storable qw(thaw);

$| = 1;

my $socket;
my $data;
my $data1;

$socket = new IO::Socket::INET(
    PeerHost => 'localhost',
    PeerPort => '5000',
    Proto    => 'tcp',
) or die "ERROR in Socket Creation : $!\n";

$data = <$socket>;

$data1 = thaw($data);

print "Received from Server :", Dumper($data1), $/; # OR %$data1

foreach my $i ( keys %{$data1} ) {
    print "$i=>$data1->{$i}\n";
}

$socket->close();