#!/usr/bin/perl -w

use strict;

opendir(FOO, ".");
print join("\n",readdir(FOO));