32

32.pl

#!/usr/bin/env perl

use strict;
use warnings;

my $i= 0;

print "1~100の数字を入力して下さい。>>>";
$i = <STDIN>;

chomp $i;

if ($i % 2 == 0 && $i >= 51){
  print "51以上の偶数\n";
}elsif ($i % 2 == 0 && $i <= 50){
  print "50以下の偶数\n";
}elsif ($i >= 51){
  print "51以上の奇数\n";
}elsif ($i < 50){
  print "50以下の奇数\n";
}