#!/usr/local/bin/perl -w
use CGI;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Status;
use URI::URL;

$| = 1;

my $ua = new LWP::UserAgent;
$ua->agent ("ahref.com multisubmit 1.0");
$ua->from ("piou\@ahref.com");
$ua->timeout (90);

$query = "http://www.test.com?action=add me&site=http://www.test2.com";

$url = new URI::URL $query;

#$url = $url->full_path;

print "$url\n";