Help for this page

Select Code to Download

Select or download this

sub _text{
    my $fh = shift;
...
    no strict 'refs';
    (join '', <$fh>) || $fh;
}