Select Code to Download

$score = scoring($s, $m);
$score += $score;

my $score;

...
    $score += $local_score;
    print $local_score;    # (or did you want to print $score here?)
}

use strict;
use warnings;