#!/usr/bin/env perl 
use strict;
use warnings;
use HTTP::Request;
use Data::Dumper;

my $request = HTTP::Request->new;
print "Object:\n", Dumper $request;
print "Hash:\n", Dumper %$request;