C:\Users\alex>subst n: c:\

C:\Users\alex>perl -MFile::stat -E "for my $d (qw( C: D: H: I: M: N: T: X: )) {
my $st=stat(qq<$d\\.>); say $d,' ',$st->dev() }"
C: 2
D: 3
H: 7
I: 8
M: 12
N: 13
T: 19
X: 23

C:\Users\alex>