#!/usr/bin/perl -w
use strict;

sub B::FAKEOP::fake_ppaddr { $_[0]->{fake_ppaddr} || 0 }

print "here it is\n";