#!/usr/bin/perl

use strict;
use warnings;

use Fatal qw(readdir);

my $start_dir = '.';
opendir(my $dir, $start_dir);
my @subdir = readdir $dir;
closedir $dir;
print "@subdir\n";