メモリ使用量をログに吐く

cron で 5分毎に動かしているプログラムでメモリ使用量が気になるものがあったため、 下記のようにしてメモリ使用量をログに吐いたところ、いろいろ捗った。

use Log::Minimal;

sub rss {
    my $rss = `ps -p $$ -o rss=` || 0;
    $rss =~ s/\s+//gsm;
    $rss; # KB
}

infof "memory usage: %dMB", rss() / 1024;
__END__
2015-01-31T11:24:58 [INFO] memory usage: 4MB at rss.pl line 9