Select Code to Download

#!/usr/bin/perl

...
   $Sheet->Range("B2")->{Value} =
      encode($active_cp, $german_text);
}