#!/usr/local/bin/perl -- -*-fundamental-*-

##  Nomailto.pl 
##  Written by Greg Mullane <greg@turnstep.com>
##  Please see http://www.turnstep.com/Spambot/
## 
##  This program redirects outgoing mail to avoid any "mailto" tags
##  Assumes use of a simple form with the name and email put into 
##  'spambot' and 'beware' fields

use CGI;
use strict;

my $q = new CGI;

my $name   = $q->param('spambot');
my $domain = $q->param('beware');

$|++;
print "Location: mailto:$name\@$domain\n\n";
print "Email to $name\@$domain!\n";
exit;