Select Code to Download

Select or download this
```
BEGIN { @INC = () }
```

BEGIN {
    @INC = qw(
        /path/to/apps/lib
    );
}

Select or download this

$ perl -le 'print for @INC'
/etc/perl
...
/usr/share/perl/5.8
/usr/local/lib/site_perl
.

Select or download this

$ /opt/bin/perl -E 'say for @INC'
/opt/lib/perl5/5.10.0/i686-linux
...
/opt/lib/perl5/site_perl/5.10.0/i686-linux
/opt/lib/perl5/site_perl/5.10.0
.

Select or download this

$ perl -Mstrict -le 'print $INC{q(strict.pm)}'
/usr/share/perl/5.8/strict.pm

Select or download this

$ perl -MFile::Find -le '
find {
...
'
/usr/lib/perl/5.8/Data/Dumper.pm
/usr/share/perl/5.8/strict.pm

Select or download this

$ ls -ld /usr/lib/perl/5.8 /usr/share/perl/5.8
lrwxrwxrwx 1 root root 5 2008-02-05 13:17 /usr/lib/perl/5.8 -> 5.8.8
lrwxrwxrwx 1 root root 5 2008-02-05 13:17 /usr/share/perl/5.8 -> 5.8.8

Select or download this

BEGIN {
    @INC = qw(
...
        /usr/lib/perl/5.8
    );
}

Select or download this

$ ./inc.pl
Can't locate DBI.pm in @INC (@INC contains: /path/to/apps/lib /usr/sha
+re/perl/5.8 /usr/lib/perl/5.8) at ./inc.pl line 21.
BEGIN failed--compilation aborted at ./inc.pl line 21.

Select or download this

$ cat inc.pl
#!/usr/bin/perl
...
use HTML::Template;
use URI;
use Data::Pageset;