use Win32;
print "shutting down...";

Win32::InitiateSystemShutdown ("","shutting down...",45,0,1);

$! =Win32::GetLastError();

if ($!)
{
  print "Can't get it down : $! \n"; }
else
{
  print "on is way ...\n";
}

print "done.\n";

    Source: geocities.com/siliconvalley/park/8312

               ( geocities.com/siliconvalley/park)                   ( geocities.com/siliconvalley)