Select Code to Download

sub calc {
  my $t = $scale;
...
  $s =~ s/(.)/sprintf("%x ",ord($1))/eg;
  return $s;
}