#!/usr/bin/perl

require 5.003;
use strict;
use CGI;

my $query = new CGI;

my $search = $query->param('T01');

print "Location: http://www.toxinfo.org/toxinfo/db/toxinfo.php?search=" . $search . "\n\n";

1;