Der BEGIN-Block ist notwendig, weil Zuweisungen normalerweise zur Laufzeit passieren, nicht zur Compilezeit. Hier ein Dump von @INC ohne und mit BEGIN-Block
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
$VAR1 = [
undef,
"/usr/perl5.8.0/lib/5.8.0/i386-freebsd-64int",
"/usr/perl5.8.0/lib/5.8.0",
"/usr/perl5.8.0/lib/site_perl/5.8.0/i386-freebsd-64int",
"/usr/perl5.8.0/lib/site_perl/5.8.0",
"/usr/perl5.8.0/lib/site_perl",
"."
];
$VAR1 = [
"C:\\cpan\\WWW-ConfixxBackup-0.01\\lib",
"/usr/perl5.8.0/lib/5.8.0/i386-freebsd-64int",
"/usr/perl5.8.0/lib/5.8.0",
"/usr/perl5.8.0/lib/site_perl/5.8.0/i386-freebsd-64int",
"/usr/perl5.8.0/lib/site_perl/5.8.0",
"/usr/perl5.8.0/lib/site_perl",
"."
];