opendir(DIR, "/tmp") || die "can't opendir $!";
while (my $file = readdir(DIR)) {
  next unless (-f "/tmp/$file");
  printf '%.4s', $file;
}
closedir DIR;