#!/usr/bin/perl -w

# redirect-mailto.pl

use CGI qw(:cgi);

$user = param("u");
$domain = param("d");

print redirect( -URL => "mailto:$user\@$domain" );