#!/usr/bin/perl

use v5.12;
use warnings;

sub readroot
{
	my $drive=shift;
	my $name="$drive:/";
	if (opendir my $d,$name) {
		my @list=grep /^\.{1,2}$/, readdir $d;
		closedir $d;
		return join(' ',"$drive:",@list);
	}
	return "$drive: $!";
}

say readroot($_) for ('A' .. 'Z');