use File::Spec;
  ...
  my @entries = File::Spec->no_upwards(readdir DIR);