Select Code to Download

#!/usr/bin/perl -w
use strict;

...
    
    return $score;
}

[leo@mescaline ~]$ perl scorelines.pl
line 1 score 8
line 2 score 6
...
line 4 score 9
line 5 score 4
line 6 score 6