BEGIN {
    @INC = qw(
        /path/to/apps/lib
        /usr/share/perl/5.8
        /usr/lib/perl/5.8
    );
}