#!/usr/bin/perl
use warnings;
use strict;

use HTTP::Headers;

my $h = HTTP::Headers->new;

$h->header('Content-Type' => 'text/plain');  # set
$h->header('u' => 'user');
$h->header('p' => 'password');
print $h->as_string, "\n";