#!/usr/bin/perl

use strict;
use warnings;

use Fatal qw(readdir);

$| = 1;

my $start_dir = '.';
opendir(my $dir, $start_dir);
while($_= readdir($dir)) {
        print "$_ ";
}
closedir $dir;