#!/usr/bin/perl -w
#
# Simulates web.icq.com/wwp.
#
# Eloy Paris, August 2002
#

use strict;
use CGI qw/:standard/;

my $Uin = param('Uin');

# print STDERR "Uin = ", param('Uin'), "\n";

print header,
	start_html("User $Uin Homepage"),
	h1("User $Uin Homepage"),
	"Hello, I am user $Uin and this is my homepage.", p, "\n",
	"You can e-mail me at <A HREF=\"mailto:$Uin\@whatever.com\">$Uin\@whatever.com</A>",
	p, "\n";