Select Code to Download

#! perl -slw
use strict;
...
my @vols = split "\n", `diskpart /s listvol.txt`;

print for @vols;

list volume