#!/usr/bin/perl ---

use strict;
use warnings;

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

$h->header( qw' SM_USER waldo ');
print $h->as_string;
__END__
SM-USER: waldo