package opera; use strict; use vars qw/@ISA $standardheader/; $standardheader = < == Released under the GNU GPL --> EOF use nonjs; @ISA = qw/nonjs/; sub _out { print "$_[1]\r\n"; } sub header { my($self, $config, $cgi) = @_; print < EOF } 1;