use LWP;
my $url = shift;
my $headName = "NewHeader";
my $headValue = "NewValue";
my $request = HTTP::Request->new(HEAD, $url,[$headName,[$headValue]]);