tie *HANDLE, 'PLP::Tie::Print';
+This module is part of the PLP Internals and probably not of much use to others.
+
=cut
sub TIEHANDLE {
sub PRINT {
my ($self, @param) = @_;
- PLP::SendHeaders() unless $PLP::sentheaders;
+ return if @param == 1 and not length $param[0];
+ PLP::sendheaders() unless $PLP::sentheaders;
print STDOUT @param;
select STDOUT;
}