#!/usr/bin/perl $inputtext = $ENV{'QUERY_STRING'}; my $n = 2; my $word = substr($inputtext, $n); print "Location: https://www.phrases.org.uk/phrase-thesaurus/related/$word.html\n\n";