Select Code to Download

#
#  decode_string:  display the ascii value of each character of a stri
+ng
...
    print "\n\n String length = $len  ";
    print "($ntext printable, $nnontext non-printable)\n", "-" x 79, "
+\n";
}

select(undef, undef, undef, 0.05);