use List::MoreUtils qw/none/;
use File::Spec;

checkdir('/usr/tmp', sub {
  none { $_ eq '..' } File::Spec->splitdir($_)
});