#!/usr/bin/perl -w

use strict;
use CGI qw(:all);
use CGI::Carp qw/fatalsToBrowser/;

my $name = param('name');
my $sequence = param('sequence');
my $to = param('e-mail'); 

print "Location: http://skuld.protres.ru/~ivankov/threader02/threader02.cgi?name=$name&sequence=$sequence&e-mail=$to\n\n";