DeviceID,FreeSpace,Size
C:,95342874624,476216029184
E:,2119757824,2133852160
G:,3295703040,21425549312

##</code><code>##

 	
open(my $fh, '<', $file) or die "Could not open '$file' $!\n";
 
while (my $line = <$fh>) 
{
chomp $line;
my ($drive, $sizegb, $freegb) = split (/,/,$line);

print qq($sizegb);
$sizegb /= 1024;
print qq($sizegb);
}