my $message = <STDIN>;
print qq{\$message = "$message"\n};
printf "%02x ", ord for split //, $message;  # hexdump