use WhenNeeded qw[
    HTTP::*
    HTML::*
];


my $headers = new HTTP::Headers;
...
my $request = new HTTP::Request;
...

my $content = decode( $content );