You can also do this with File::Spec's no_upwards function:

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