use strict;
use warnings;
use LWP::UserAgent;

sub request{
    my $self = shift;
    my %par = (
        method  => 'GET',
        uri     => '',
        header  => [],
        content => '',
        @_    
    );
    
    if( ref $par{header} eq 'HASH' ){
        $par{header} = HTTP::Headers->new( %{$par{header}} );
    }
    
    my $ua  = LWP::UserAgent->new();
    my $req = HTTP::Request->new( @par{qw(method uri header content)} );
    my $res = $ua->request($req);
}