Perlでミリ秒単位の時間計測を行う（Time::HiResを利用） ref: http://qiita.com/yoshikazusawa/items/b275104ffe869fa76157

file0.txt

use strict;
use warnings;
use utf8;
use feature qw( say );
binmode(STDOUT, ":utf8");

use Time::HiRes qw( usleep gettimeofday tv_interval );

# 現在時刻を取得（[currentsec, currentmicrosec]の構造になっている）
my $t0 = [gettimeofday];

# 200 * 1000マイクロ秒 → 200ミリ秒のsleep
usleep(200 * 1000);

#  浮動小数点数で経過時間を取得（このサンプルだと0.20xxxx秒程）
my $elapsed = tv_interval($t0);

say int($elapsed * 1000), "ミリ秒";

file1.txt

perl -MTime::HiRes=usleep,gettimeofday,tv_interval -E 'my $t0 = [gettimeofday]; usleep(200 * 1000); say int(tv_interval($t0) * 1000)'