Using Perl

9. For this activity, use the while-loop with the diamond operator, the split function on a space character, and the S_ variable. Assuming the file score is specified as argument. S cat score pchenZ2 50 71 55 93 115 imaszk 45 76 49 88 102 kxhui 59 78 53 96 145 mconle 33 65 39 82 100 mrchave3 54 77 56 98 158 Write a perl script called whileloop.pl that compute the final percentage score for each student, as well as the class average The max score is 450 and must be set as constant. The output should be (round the score to nearest integer): Total number ofrecords: 5 Final score for pcher:72-8596 Final score for maszk 30% Class Average 80% The header line should show: Final Score computation