while (<>) {
  my $hexstr="";
  foreach (split //) {
    $hexstr.=sprintf"02X",ord;
  }
  print $hexstr;
}