Actually, since the OP is using Data::Dumper, it would be better to change to this:

    print "Received from Server :\n", Dumper( $data1 );
[download]