sub checkForDirectory (&) {
  my $cond = shift;

  ## ...
}

## ...
my $result = checkForDirectory { ! -d $_[0] };
my $also_result = checkForDirectory sub { -M $_[0] > 2 }