selection => perl bmiChecker

bmi.pl

#!/use/bin/perl


use warnings;
use strict;
use 5.010;

say "体重どうぞ";
my $omosa = <STDIN>;

say "身長どうぞ(mでどうぞ)";
my $nagasa = <STDIN>;

my $BMI = $omosa / ($nagasa * $nagasa);

say"$BMI";

if($BMI < 18.5){
        say"やせすぎぃ";
}elsif($BMI <25){
        say"ふつう";
}elsif($BMI <30){
        say"でぶ１";
}elsif($BMI < 35){
        say"でぶ２";
}elsif($BMI <40){
        say"でぶ３";
}elsif($BMI >=40){
        say"くそでぶ";
}