while(<>){
$hex_string .= unpack("H*",$_);
}