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