ヒビノアワ: 自作iPhoneアプリ「BPM」公開されました! こういうのいいなーと思いつつ、iPhone 持ってないから俺使えないじゃん! と、ついカッとなって作った。今は反省している。 #!perl use strict; use warnings; use Time::HiRes qw(gettimeofday); use Term::Screen; use constant DEFAULT_SECONDS => 60; my $secs = int $ARGV[0] || DEFAULT_SECONDS(); my $screen = Term::Screen->new; $screen->clrscr(); my $start; my $end; $screen->at(0, 0)->puts(sprintf("pless any key to start. (%d secs)"