Select Code to Download

#!/usr/bin/perl -wT

...
close FILE;

print start_html(),h1('Thanks for that!),end_html();

  print $q->redirect('/whatever.html'); # your page here

  print $q->header(-status => 304);