sub _text{ my $fh = shift; unless (defined($fh)) { $fh = \*STDIN; } if ( (! ref $fh) && ((open INPUT, "$fh") || open INPUT, "<$fh" )) { $fh = join '', ; close INPUT; } no strict 'refs'; (join '', <$fh>) || $fh; }