Select Code to Download

sub getChecksum($) {
        my $in = shift;
        local our $check = 0;
        $in =~ m/(?:(.)(?{$check += ord($1);}))*^/;
        return $check;