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

Body variable *$body* has $length chars

bob