E:\Perl\bin>perl -e" print `vol $ARGV[0]`=~/is \b(.+)\b/" c:
8C87-E163
E:\Perl\bin>perl -e" print `vol $ARGV[0]`=~/is \b(.+)\b/" d:
Winnt
E:\Perl\bin>perl -e" print `vol $ARGV[0]`=~/is \b(.+)\b/" e:
B41D-3949
E:\Perl\bin>