Since the client is connected to you on 'port:15000', you could return the "where to go" by using the following in your code:
. . .
my $where = "..."; ## $where is the URL of the new destinat
+ion
print "Content-type: text/html\r\n\r\n";
print '<HTML>';
print '<HEAD>';
print '<META HTTP-EQUIV="Refresh" CONTENT="0; URL=http://' . $wh
+ere . '">';
print '</HEAD>';
print "</HTML>";
What the code does, is tell the clients browser to redirect to the new URL.
You need to initialize '$where' with the new destination
Good Luck
"Well done is better than well said." - Benjamin Franklin