#!/usr/bin/perl
#
# usage: how-many-messages
#
# Displays how many messages are unread in your irssi away.log assuming that
# your irssi home directory is $HOME/.irssi
#
use strict;
use warnings;

use File::ReadBackwards;

my $bw = File::ReadBackwards->new("$ENV{HOME}/.irssi/away.log")
    or die "can't read away log";

my $count = 0;

$count++ while not( $bw->eof or $bw->readline =~ /^--- Log/ );

print "$count\n";