use Module::Substitute
  'Scalar::Util' => [qw/refaddr openhandle/];

print refaddr $some_object;