use Win32::API ();
Win32::API->Import("user32", "BOOL LockWorkStation()");
LockWorkStation();

##</code><code>##

use Win32::API ();

Win32::API->Import("user32", "BOOL LockWorkStation()")
   or die("Unable to import LockWorkStation: $^E\n");
	
LockWorkStation()
   or die("Unable to lock workstation: $^E\n");