用Perl写的定时关机程序

用Perl写的定时关机程序

睡觉之前我总想听一会儿音乐再睡觉，不知道java该怎么写
先用Perl写了一个用

use  Win32;

$machine   =  Win32 :: NodeName();
$timeout   =   3600 ;
if ( $ARGV [ 0 ]){ $timeout   =   $ARGV [ 0 ];}
$message   =  Win32 :: MsgBox( " shut down after $timeout seconds. " );
Win32 :: InitiateSystemShutdown( $machine , $message , $timeout , true , true);