my $outstr = "";
    $outstr .= sprintf("%2.2x",ord($_)) for (split //);
    print $outstr, $/;