#!/usr/bin/perl
use strict;
use warnings;
BEGIN { print "Vorher:\n"; print "»$_«\n" for @INC; }
# use lib '.';
BEGIN { print "Nachher:\n"; print "»$_«\n" for @INC; }
use Foo::Bar;

Foo::Bar::output();