Select Code to Download

sub dkubb_LUHN10 {
  my $number = shift;
  my $sum;
...
    while $number ne '';
  ($sum % 10 == 0) || 0;
}