BEGIN {
    unshift @INC, sub {
        my( $self, $file )= @_;
        print "Searching for $file...\n";
        return;
    };
}
require Net::Ping;