my $request = new HTTP::Request::Common::POST("$URL",

##</code><code>##

"Bareword found where operator expected at ./test.pl line 19, near "new HTTP::Request::Common::POST"
        (Do you need to predeclare new?)"

##</code><code>##

$ua = LWP::UserAgent->new;