Help for this page
use Win32::API (); Win32::API->Import("user32", "BOOL LockWorkStation()"); LockWorkStation();
use Win32::API (); ... LockWorkStation() or die("Unable to lock workstation: $^E\n");