#!/usr/local/bin/perl -w
 use strict;

 use WebService::Prowl;
 my $ws = WebService::Prowl->new(
     apikey => "xxxxxxxxxxxxxxxxxxxxxxx");

 $ws->verify || die $ws->error();

 $ws->add(
     application => "Perl Snapshot",
     event       => "Just a test.",
     description => "Huzzah, it works!",
     url         => "http://linux-magazin.de",
 );