new HTTP::Request POST sample

my $req = new HTTP::Request POST => $url;
       # $req->content_type('application/x-www-form-urlencoded');
       $req->content($cstr);

       my $res = $ua->request($req);
       print "\n--after login action----------------------------------\n";

       print $res->content;