use strict; use warnings; use File::Temp qw(tempfile); use File::Basename; print join q{ }, @INC; print "\n";