$pid = 1768;
 Win32::Process::KillProcess($pid,0);

##</code><code>##

Undefined subroutine &Win32::Process::KillProcess called at C:\perlscripts\pidin
fo.pl line 51, <DATA> line 164.