my $size = 0;
for my $filename (glob("C:/")) {
    next unless -f $filename;
    $size += -s _;
}