Untitled

#!/usr/local/bin/perl

use Growl::GNTP;


$growl = Growl::GNTP->new(
                                                        PeerHost        => "10.8.0.6",
                                                        PeerPort        => 23053,
                                                        AppName         => "GrowlTest",
                                                        Password        => "boe");

$growl->register( [
                                        {Name                   => "$AppName",},
                                        {DisplayName    => "Viking Irssi Notifier",},
                                        {Enabled                => "True",},
                                        {Sticky                 => "$Sticky",},
                                        {Priority               => 0,},
                                        {Icon                   => "http://rootcu.be/images/viking.png"},]
);

$growl->notify(
        Event           => 'Notification',
        Title           => "Test:",
        Message         => "This is a test.\n AppName = $AppName \n GrowlHost = $GrowlHost \n GrowlServ = $GrowlServ \n Sticky = $Sticky\n Away = $testing",
        Priority        => 0,
        Sticky          => "$Sticky",
        Icon            => "http://rootcu.be/images/viking.png"
 );