#!/usr/bin/perl -w
use strict;

opendir (TOPDIR,"$ENV{HOME}")
   or die "Thus shall ye likewise perish: $!";
close TOPDIR;
while ($_=readdir(TOPDIR)){
  print "$_\n";
}