#! perl -slw
use strict;

my @vols = split "\n", `diskpart /s listvol.txt`;

print for @vols;

##</code><code>##

list volume