use strict;
use warnings;
use File::Temp qw(tempfile);
use File::Basename;

print join q{ }, @INC;
print "\n";

##</code><code>##

pp -C -o ichk-C ichk.pl
and
pp -o ichk-noC ichk.pl

##</code><code>##

** ichk-C **
Invalid argument at -e line 119.
Can't locate File/Temp.pm in @INC (@INC contains: /home/shared/perl5/REL5/perlbrew/perls/perl-5.16.3/lib/site_perl/5.16.3/x86_64-linux /home/shared/perl5/REL5/perlbrew/perls/perl-5.16.3/lib/site_perl/5.16.3 /home/shared/perl5/REL5/perlbrew/perls/perl-5.16.3/lib/5.16.3/x86_64-linux /home/shared/perl5/REL5/perlbrew/perls/perl-5.16.3/lib/5.16.3 .) at -e line 6.
END failed--call queue aborted at -e line 616.

** ichk-noC **
par-646563687063/cache-e9945fbc61b7cb093917c5ca027e5bb0198d1d0d/inc/lib par-646563687063/cache-e9945fbc61b7cb093917c5ca027e5bb0198d1d0d/inc CODE(0x11d5950) CODE(0x11d5a58)