Select Code to Download

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

#return (kill 0,$pid); - don't know but it doesn't work.. 
my $throbj;
...
        { return 1; } #STILL ACTIVE
    return 0;
}