my $pid = system (1, 'FOR /R C:\ %G IN (*.*) DO type %G');
sleep(2);
print `taskkill.exe /PID $pid /T /F`;