E. Perl/scripting use strict; use WarningS; my %count; my $file = shift or die "Usage : $0 FILE "; open my $fh, ') chomp $line; foreach my $str (split /\s+/, $line) $count{$strl++; foreach my $str (sort keys %count) printf "%-31s %s ", $str, $count($str); 1. Q: What is this script doing? A: 2. Q: Comment each line describing its function. A: 3. Q: Which functional test cases would you design to test the script above? A: 4. Q: Implement 2 of the test case in 3) in Perl or scripting of your choice. A