Dear Monks,

I assume I am being dopey, but I don't understand why this

  my $fh;
  open($fh,'<',$file);
  while (<$fh>) {
    print "line: $_\n";
  }
[download]

is OK, whereas this

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

tells me

readline() on unopened filehandle 1 at ...
readline() on unopened filehandle 2 at ...
readline() on unopened filehandle 3 at ...
...
[download]

Can someone please enlighten me?

Update: I'm using Perl 5.8.0 on solaris.

Thanks,

loris