#!/usr/bin/perl -w
use CGI qw(:standard);

my $user = remote_user() || user_name() || "";

print header, start_html("Hello"), h1("Hello " . $user . "!"), end_html;