sub main()
{
    print "cmp Compare:\n";
    print 'a' cmp 'b'."\n"; # -1
    print 'b' cmp 'a'."\n"; #  1
    print 'a' cmp 'a'."\n"; #  0
    print "\n";
    print "eq Equal to:\n";
    print 'a' eq 'b'."\n"; #  0
    print 'b' eq 'a'."\n"; #  0
    print 'a' eq 'a'."\n"; #  1
    print "\n";
    print "ne Not-Equal to\n";
    print 'a' ne 'b'."\n"; #  1
    print 'b' ne 'a'."\n"; #  1
    print 'a' ne 'a'."\n"; #  0
    print "\n";
    print "lt Less than\n";
    print 'a' lt 'b'."\n"; #  1
    print 'b' lt 'a'."\n"; #  0
    print 'a' lt 'a'."\n"; #  0
    print "\n";
    print "le Less than or equal to\n";
    print 'a' le 'b'."\n"; #  1
    print 'b' le 'a'."\n"; #  0
    print 'a' le 'a'."\n"; #  1
    print "\n";
    print "gt Greater than\n";
    print 'a' gt 'b'."\n"; #  0
    print 'b' gt 'a'."\n"; #  1
    print 'a' gt 'a'."\n"; #  0
    print "\n";
    print "ge Greater than or equal to\n";
    print 'a' ge 'b'."\n"; #  0
    print 'b' ge 'a'."\n"; #  1
    print 'a' ge 'a'."\n"; #  1
    print "\n";
}

##</code><code>##

D:\perl>perl StringCompare.pl
cmp Compare:
-11-1
eq Equal to:

ne Not-Equal to
111
lt Less than
11
le Less than or equal to
11
gt Greater than
1
ge Greater than or equal to
1