#!/usr/local/bin/perl print "Content-type: text/html\n\n"; my $body = "123"; my $length = length($body); my $body2 = "abc"; my $length2 = length($body2); print<

Body variable *$body* has $length chars

Body variable *$body2* has $length2 chars

bob