#!/usr/bin/perl

use strict ;
use warnings ;
use WebService::Prowl ;

my $ws = WebService::Prowl->new(apikey => "111111111111111111");
$ws->verify || die $ws->error();
$ws->add(application => "TegeÜÜ",
event       => "GeburtstagÜÜ",
description => "GeburtstagÜÜ") ;