my $addr= '\0' x 4;