#!/usr/bin/perl -w
use strict;

use Win32::API;
Win32::API->Import(
      'User32', 'BOOL ExitWindowsEx(
  DWORD uFlags,
  DWORD dwReason
)',
  );  


ExitWindowsEx('EWX_REBOOT','4');