my $s = unpack 'p', pack 'J', $addr;