Select Code to Download

sub sumit {
        my $sum = 0;
...

my @sums = map { sumit } map { sumit hex } split /\-/, '86C86720-42A0-
+1069-A2E8-08002B30309D';
print sprintf "%s\n", join '+', @sums;