package Testophile; use strict; $\ = "\n"; $, = "\n\t"; BEGIN { mkdir './lib/foo', 0555 } END { rmdir './lib/foo' } use FindBin::libs qw( export subdir=foo subonly ); use Test::More tests => 1; ok @lib == 1, 'Found only foo subdir'; __END__