# In $plugins_dir/uppercase.pm:
  
  my $inner_print_output; 
  BEGIN { $inner_print_output = \&print_output }
  
  sub print_output {
    &$inner_print_output( map { uc } @_ );
  }