foreach my $done ( 1 .. 100 ) { FS_sweep( 'C:', \&FS_file_big ); ...