#!/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 );