#!/usr/bin/perl

use strict;

*CORE::GLOBAL::require = sub {
    CORE::require($_[0]);
    print $_[0], "\n" if $_[0] eq 'Net/Ping.pm';
};

require Net::Ping;
my $p = Net::Ping->new;