print $cgi->header(-expires => 'now', 
  -Cache_control => 'no-cache', -Pragma => 'no-cache');