The redirect method simply returns the text of the redirect header, you still have to print it!

print $q->redirect("train1.htm");
[download]

Also be sure that no other headers (Content-type, etc) are printed before this line.

blokhead