my $ptr = unpack "N", pack "P", $struct;