$req = HTTP::Request->new( POST, $url, $header);

##</code><code>##

Bareword "POST" not allowed while "strict subs" in use