Select Code to Download

#!/usr/bin/perl
use strict;
...

    print "$line - $grade\n";
}

foreach my $grade ( 4, 8, 45, 48, 50, 51, 57, 60, 64, 66 , 90, 91, 99,
+ 100) {
    my $chopped = _chop_grade($grade);
...
    print "${grade}: ${rounded}/${grade_rounded} (Rounded) " .
        "- ${chopped}/${grade_chopped} (Chopped)\n";
}