use strict;
use warnings;

my $t=time; 

# $n = `attrib /s c:\\* | wc -l`; 

open (my $pipe, '-|', 'attrib /s c:\\*') or die "attrib: $!";

my $n = 0;
while (<$pipe>) { $n++ }
close $pipe;

printf "$n : %.f\n", time()-$t;