Вот на досуге написал , парсит через персональный сайт абонента( https://stat.voliacable.com:8443/ktvinet/main.do )
Требует :

1. SSL библиотеку
2. notify-send

Под убутной SSL либу ставить так : sudo apt-get install libio-socket-ssl-perl

#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use HTTP::Cookies;
use Data::Dumper;
use constant {
                USERNAME => 1,
                PASSWORD => '...',
};
my $ua = new LWP::UserAgent( agent      => 'Mozilla/5.0 (X11; U; Linux i686;'.
                                           'ru; rv:1.9.0.1) Gecko/2008072820'.
                                           'Firefox/3.0.1',
                             cookie_jar => HTTP::Cookies->new,
                             timeout    => undef);
my ( $session_id )  = $ua->get( 'https://stat.voliacable.com:8443/ktvinet/main.do' )->content =~ m[jsessionid=([A-F0-9]+)">];
my $response  = $ua->post( "https://stat.voliacable.com:8443/ktvinet/j_security_check".
                           ";jsessionid=$session_id",[
                           'j_username' => USERNAME,
                           'j_password' => PASSWORD ],);
if ( $response->status_line eq '302 Moved Temporarily' ){
    $ua->get( 'https://stat.voliacable.com:8443/ktvinet/main.do' );
    $ua->get( 'https://stat.voliacable.com:8443/adv/main.html' );
    $ua->get( 'https://stat.voliacable.com:8443/ktvinet/vbb.do' );
    $ua->get( 'https://stat.voliacable.com:8443/ktvinet/jsfunc.js' );
    $ua->get( 'https://stat.voliacable.com:8443/adv/main.html' );
    my $date = join '-',( '00'..'31' )[[localtime]->[3]],('01'..'11')[[localtime]->[4]],[localtime]->[5]+1900;
    my $response = $ua->post( 'https://stat.voliacable.com:8443/ktvinet/stats.do',[
                              'dateFrom' => $date,
                              'dateTo'   => $date,
                              'okBtn4'   => '%C7%E0+%F2%E5%EA%F3%F9%E8%E9+%EC%E5%F1%FF%F6']);
    # Исключительная ситуация , частый запрос статистики
    unless( $response->is_success && $response->content =~ m,abonents\@voliacable\.com, ){
             my %h;
             ( $h{ UA } )  = $response->content =~ m[\(UkrEx\)\s+([0-9,-]+)];
             ( $h{ SAT } ) = $response->content =~ m[\(SatEx\)\s+([0-9,-]+)];
             ( $h{ MON } ) = $response->content =~ m[\(\d+\)\s+([0-9-,]+)];
             foreach my $key ( keys %h ){
                $h{ $key } =~ s/,/./;
             }
             $h{ SUM } = $h{ UA } + $h{ SAT };
             `notify-send -i ~/my/cash/icon/volia.gif -u normal -t 10000 "VOLIACABLE" "UkrEx  : $h{UA} Мбайт \nSatEx  : $h{SAT} Мбайт \nВсего  : $h{SUM} Мбайт\nБаланс : $h{MON} грн \n"`;
    }else{
            system( 'notify-send -u critical "VOLIACABLE" "ошибка на стороне сервера"' );
    }
}else{
    system( 'notify-send -u critical "VOLIACABLE" "ошибка на стороне сервера"' );
}

Скрин http://img522.imageshack.us/img522/3536/myfu3.png
Выслушаю критику :)
ЗЫ: Что с подсветкой?