use strict; use warnings ;

  use constant HOMBURG => 'HA' ;

  print "-HOMBURG=", -HOMBURG, ", -foo=", -foo, "\n" ;