unknownplace.org

さっきのやつだと 60 秒おきの実行以外にも hardstatus を更新するタイミング(新しいウィンドウつくったりとか)のたびに backtick.pl が実行されて重いので

#!/usr/bin/perl

use strict;
use warnings;

use LWP::UserAgent;

$| = 1;
my $ua = LWP::UserAgent->new;

while (1) {
    my ($newmail) = qx{ find $ENV{HOME}/Maildir/new -type f | wc -l } =~ /(\d+)/;
    my ($newbloglines) =
        $ua->get('http://rpc.bloglines.com/update?user=Bloglines登録メアド&ver=1')
           ->content =~ /(\d+)/;

    print "Mail($newmail) Feed($newbloglines) |\n";
    sleep 60;
}

とかにして

backtick 0 0 0 ${HOME}/.screen/backtick.pl

としてみる。