change ul markup

diff --git a/markup.pl b/markup.pl
index cc40243..b7cece4 100755 (executable)
--- a/markup.pl
+++ b/markup.pl
@@ -102,7 +102,7 @@ sub ulist {
     print "<ul>\n";
     while( $l =~ m/^・/ ) {
       $l =~ s/^・(.*)$/<li>$1<\/li>/;
-      print "$l\n";
+      print "foo:$l\n";
       $l = <>;
       chomp $l;
     }