Select Code to Download

use Win32;
Win32::InitiateSystemShutdown(Win32::NodeName(), "", 0, 0, 1);

use Win32::API;
sub EWX_LOGOFF () {0}
...

$ExitWindows = new Win32::API ('kernel32','ExitWindowsEx', ['L','L'], 
+'L');
$ExitWindows->Call(EWX_REBOOT,0);