30秒ごとに経過時間をGrowlへ通知する

grow.pl

#!/usr/bin/env perl

use strict;
use warnings;
use Growl::GNTP;

my $interval = $ARGV[0] > 0 ? $ARGV[0]:30;


my $growl = Growl::GNTP->new(
    PeerHost => 'myhost',
    AppName => 'my growl app!',
    Password => 'testst'
    );  
$growl->register([
    {   
        Name => 'おはよう',
        DisplayName => 'teststststs',
        Enabled => 'True',
        Icon => ''
    },  
]);

my $count = 0;
while (1) {
    sleep 1;
    next if ++$count % $interval ne '0';
    $growl->notify(
        Event => 'おはよう',
        Title => '時間経過の報告',
        Message => "$count 秒"
    );  
}