sub printContent {
  print $_[0];  # works in CGI and mod_perl environments
}