#!/usr/bin/perl ---

use strict;
use warnings;


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

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