BEGIN { unshift @INC, "." } use strict; print "I have: $strict::VERSION\n";