#!/bin/perl
#Output the names of all the things in the specified directory,
#one per line.

opendir(DIRHANDLE, '/home/m/mm64') || die "$0: $!";

while (($_ = readdir(DIRHANDLE)) ne '') {
	print "$_\n";
}

closedir(DIRHANDLE) || die "$0: $!";
exit 0;