#!/usr/bin/env perl
use strict;
use warnings;

use WebService::Prowl;
use Getopt::Long;

GetOptions(
    'priority|p=s'    => \my $priority,
    'application|a=s' => \my $application,
    'event|e=s'       => \my $event,
    'description|d=s' => \my $description,
    'apikey|k=s'      => \my $apikey,
);

die "Usage: $0 -k apikey -d yourmessage " unless $apikey && $description;

$application ||= 'app';
$event ||= 'test';

my $ws = WebService::Prowl->new(apikey => $apikey);
$ws->add('event' => $event, application => $application, description => $description) || die $ws->error();