my $fh;
  $fh = cacheout('<',$file);
  while (<$fh>) {
    print "line: $_\n";
  }