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

C:\Users\alex>