Thanks very much! I added

sub CLOSE {
    my $self = shift;

    return $self->[0];
}
[download]

so I can get at the content nicely by close()ing the handle.