- my ($self, @param) = @_;
- return if @param == 1 and not length $param[0];
- PLP::sendheaders() unless $PLP::sentheaders;
- print STDOUT @param;
- select STDOUT;
+ shift;
+ return unless grep length, @_;
+ PLP::sendheaders() unless $PLP::sentheaders;
+ print STDOUT @_;
+ select STDOUT;