die "Didn't get a sensible result from cacheout() for '$file'. Maybe this helps: $!"
    unless $fh;

##</code><code>##

Q:\>type test.txt
1
2
3

Q:\>perl -MFileCache -le "my $fh = cacheout('<','test.txt'); print for <$fh>"
1

2

3

Q:\>perl -MFileCache -le "my $fh = cacheout('<','does-not-exist.txt'); print for
 <$fh>"
Can't create does-not-exist.txt: No such file or directory at -e line 1