It wont even parse but.. i had to place it here... it's my first:

use PASSION::UserAgent;
$me = PASSION::UserAgent->new;
$me->agent("Donato");

my $request = PASSION::Request->new(POST => 'Kiss');
$request->Content_Type('French Style');

my $response->$me->Request($request);

print $response->content if ($response->is_success);
else die "trying to $! you";
[download]

compared to the last poem it's nothing.. but im on my to become a r33l p3rlmonk