use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $old;

$old = 24;

if ($old >= 20 && $old < 30){
  print "20代です\n";
}

my ($kokugo, $sansu);

$kokugo = 58;
$sansu = 75;

if ($kokugo >= 60 || $sansu >= 60){
  print "合格です\n";
}

my $seibetu;

$seibetu = "男性";

if (!($seibetu eq "女性")){
  print "女性ではありません\n";
}