Select Code to Download

while (<>) {
...
  }
  print $hexstr;
}

 
  sub as_hexstr {
    local $_=shift;
...
  while (<>) {
    print as_hexstr($_);
  }