Pasted

#########################
#       PERL TIPS       #
#########################
=begin comment
1 WYSWYG  strings (split across multiple lines)
2 Single brackets dont process symbols (\n), just shows them
3 Variable symbols for DECLARATION
    **for interpretation use $ for all***
        Scalar(simple)      '$'
        Array               '@'
        Hash/value pairs    '%' 
4 print doesnt need ()
=cut
 
 
#########################
#   Grade Calculator    #
#########################
 
use Switch;             #cpanm package
 
print ("\n\tEnter your score: ");
 
#Global variable
$score = <STDIN>;       #get user input
chomp $score;           #remove newline char
 
print "\n Your grade:  ",gradeCalc(),"\n";
 
 
# Converts numeric score to letter grade
#
sub gradeCalc{
    my $grade;          #local variable
    
    switch ($score){
        case [90..100]{ $grade= "A"; }
        case [80..89] { $grade= "B"; }
        case [70..79] { $grade= "C"; }
        case [60..69] { $grade= "D"; }
        else          { $grade= "F"; }
    }
    
    return $grade;
}
 
<STDIN>;