return (
                    sub { #Carp::cluck 'In anonymous sub';
                        if ($_=<$fh>) {
                            warn Data::Dumper->Dump([\$_],[qw(*_)]),' ';
                            return 1;
                            }
                        else {
                            return 0;
                            };
                        } # Anonymous sub:
                    );