for my $i (0..5) {
	my $dir = $i ? "/media/disk-$i/" : "/media/disk/";
	opendir my $dh, $dir or die "Can't opendir $dir: $!";
	print $dir,"\n";
	closedir $dh;
}