どうも最近、バッテリーが50%あたりから5%あたりまで一気に減るので、 しばらく計ってみることにする。が、手頃なものが見つけられないので。cygwinのperl 5.8.7で動作確認 #!/usr/bin/perl use strict; use Win32::API; if($ARGV[0] eq '--loop') { $| = 1;…