#!/usr/bin/perl
#
use strict;
use warnings;

use constant APPLIB => "/opt/app/lib";
use lib APPLIB;
use File::Find;
substr($INC{'File/Find.pm'},0,length(APPLIB)) eq APPLIB
    or die "File::Find incorrectly loaded from " . $INC{'File/Find.pm'};