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

use LWP::Debug;
use LWP::Debug qw(level); level('+');
use LWP::UserAgent;

my $url='http://ceasefiremagazine.co.uk/whistleblower-al-qaeda-chief-u-s-asset/';
#my $content=LWP::Debug::trace('get($url)');

 # Create a user agent object
  my $ua = LWP::UserAgent->new;
  $ua->agent("MyApp/0.1 ");

  # Create a request
  my $req = HTTP::Request->new(POST => $url);
  $req->content_type('application/x-www-form-urlencoded');
  $req->content('query=libwww-perl&mode=dist');

  # Pass request to the user agent and get a response back
  my $res = $ua->request($req);

  # Check the outcome of the response
  if ($res->is_success) {
      print $res->content;
  }
  else {
      print $res->status_line, "\n";
  }