Select Code to Download

#! perl
use strict;
...
    GetVolumeInformation($d, @x);
    print "$d $x[0] ($x[5])\n";
}

 1:16 >perl 1442_SoPW.pl
Modification of a read-only value attempted at C:/Perl/Strawberry/stra
+wberry-perl-5.22.0.1-64bit-PDL/perl/lib/Win32API/File.pm line 269.

 1:16 >

 1:16 >perl 1442_SoPW.pl
[undef, undef, undef, undef, undef, undef, undef]
...
E:\  ()

 1:16 >