BEGIN {
  for (qw(Cons::Spec File::Spec)) {
    eval "use $_"; last unless $@;
  }
  die "Cannot find Cons::Spec or File::Spec" if $@;
}