use Pointer::long;
my $p=pointer('long');
$p->to($addr); # where $addr is something like 0x123456
$data=$p->get;