sub list_dir {
  my $directory = shift;
  # Proceed as before
}