$ perl -le'@INC=(); do "t/t.pl"'

$ perl -le'@INC=(); do "./t/t.pl"'
hi

$ perl -T -le'@INC=(); do "t/t.pl"'

$ perl -T -le'@INC=(); do "./t/t.pl"'
hi