sub print { @_ or croak 'usage: $io->print(ARGS)'; my $this = shift; print $this @_; }