#!/usr/bin/perl

# Feeble Anti-Spam Device for Redbrick Webpages.
# I am sooooooo 3133+
# DoC Feb 2 1999

use strict;
use CGI;


my $query = new CGI;

my $username = $query->param('username');

die "Content-type:\ttext/html\n\nInvalid Arguments\n" unless $username;

print $query->redirect("mailto:$username\@paulmay.org");