W:\Steve\PerlMonks>perl sopw-584100.pl
  Byte = [65]  Integer = [65]  Hex = [41]  Binary = [01101100]  Binary String = [01101100]
Aborting Loop