if文の書き方

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

my $num;

$num = 5;

#elseif じゃなくて elsif
if ($num > 0){
  print "正の数です\n";
}elsif ($num < 0){
  print "負の数です\n";
}elsif ($num == 0){
  print "0です\n";
}else{
  print "その他の値です\n";
}

#unless文
unless ($num == 0){
	print "0ではありません。\n";
}

#三項演算子
print($num == 5 ? "5です。\n" : "5じゃないよ。\n");

#if修飾子
$num = $num - 1 if $num >= 1;
print($num);