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

use Win32::API;
Win32::API->Import(
      'PowrProf', 'BOOLEAN SetSuspendState(
  BOOL Hibernate,
  BOOL ForceCritical,
  BOOL DisableWakeEvent
)',
  );  

SetSuspendState(0,0,0);