#!/usr/bin/perl -w
use Win32;
Win32::InitiateSystemShutdown( '', "\nWARNING\!\!\n\nSystem is about to Reboot\!\n\(The system will reboot in 30 seconds.\)", 30, 1, 1 ); 

##</code><code>##

#!/usr/bin/perl -w
use Win32;
$machineName="";
Win32::AbortSystemShutdown($machineName);