入力チェックにunlessを利用
Perl版を新規作成