sub scandir {

  my ($workdir) = &scandir;
  ...