while (<F>) 
{
  $buf .= $_;
  $cache->set($session, [0, $buf]);
}