while(read $socket, my $bin, 510){
  my($k,$v) = unpack "Z255Z255", $bin; # same Template as above 
}