use Term::ANSIColor;
 
sub calc_color {
    # on devrait tester que le paramètre est bien un nombre
    # si on n'est pas sur de ses appels
    my $val = shift;
    return ($val > 10)?"red":"blue";
}
 
print colored(" This text is blue.\n", "blue" ), "\n";
print colored(" This text is red.\n", "red" ), "\n";
my $val = 7;
print colored(" Val is $val\n", calc_color($val)), "\n";
$val = 17;
print colored(" Val is $val\n", calc_color($val)), "\n";

if($pct <= 10)
    {
    print color 'cyan'; 
    print $pct;
    print color 'reset';
    elsif($pct <= 50)
    {
       print color 'blue'; 
       print $pct;
       print color 'reset';
    }
    elsif($pct <= 80)
    {
       print color 'yellow'; 
       print $pct;
       print color 'reset';
    }
    elsif($pct <= 100)
       print color 'red';  
       print $pct;
       print color 'reset';
    }
    }

sub colored_pct {
    my $pct = shift;
    my $color;
    if ($pct  <= 10) {
    $color = 'cyan';
    }
    elsif ($pct <= 50){
    $color = 'blue';
    }
    elsif ($pct <= 80){
    $color = 'yellow';
    }
    elsif ($pct <= 100){
    $color = 'red';
    }
    return colored($pct, $color);
}
 
print colored_pct(5), "\n", colored_pct(15), "\n", colored_pct(55), "\n", colored_pct(85), "\n";