--- telbook.orig	Mon May 19 16:22:20 2003
+++ telbook	Mon May 19 16:22:45 2003
@@ -28,11 +28,9 @@
 
 package ui;
 
-use constant {
-    ROW_NAME => 0,
-    ROW_HOME => 1,
-  ROW_MOBILE => 2
-};
+use constant ROW_NAME => 0;
+use constant ROW_HOME => 1;
+use constant ROW_MOBILE => 2;
 
 sub new {
   my ($class) = @_;