Time::Duration::ja で human-readable な経過時間を表示

tracの例

perl src

#!/usr/local/bin/perl
use strict;
use Time::Duration::ja;

main();

sub main {
    print earlier(0),"\n";
    print earlier(300),"\n";
    print earlier(30000),"\n";
    print earlier(300000),"\n";
}

実行結果

$ ./foo.pl 
現在
5分前
8時間20分前
3日11時間前

それにしてもイイ感じです。「perl cpanモジュールガイド」