use strict;
use warnings;

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

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

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

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