Perlでざっくり実行時間計測

自分用メモ
毎回調べているのでスニペットとして残す

my($start_time) = (times())[0];
#
# do something
#
my($end_time) = (times())[0];
my $execute_time=$end_time - $start_time;
print "[$execute_time]s";