If it's a virus that's affecting the hardware, there's not a lot that Perl will be able to do. If the mouse is locked but everything else is fine (keyboard works, etc), you may have a bad mouse. If the mouse is getting locked, and everything on screen is frozen, then it's more probably that your box is hard-locking - this could be a problem with your CPU (overheating, etc.), your RAM, or your hard drive.

Either way, this most likely isn't something that can be solved with software.