opendir(DIR, $dirname) || die "Horrible Death";
while(defined($file=readdir(DIR))
  {
    print $file, "\n";
  }
closedir(DIR);