print "文字を入れてください\n";

###　まず、使う変数を定義しよう
$YorN = 'N';
while($a eq 'N') #選択がＮでない限り
    {
        ### 1: 一つ目の数字をもらう
        ### 2: もう一つをもらう
        ### 3: やりたいことをもらう
        ### 4: 処理して表示する
        ### 5: 続けたいかどうか（ＹかＮ）を聞く

        print "一つ入れてください\n";
        $a = <>;

        print "もう一つ入れてください\n";
        $b = <>;

        print "やりたいことを教えてください 1: + 2: - 3: * 4: /\n";
        $c = <>;

        if ($c == 1)
            {
                print $a + $b
            }
        elsif($c == 2)
            {
                print $a + $b
            }
        elsif($c == 3)
            {
                print $a + $b
            }
        elsif($c == 4)
            {
                print $a + $b
            }
        else
            {
                print "1~4以外はいれるんじゃねぇ！";
            }

        print "ありがとうございます、結果はこれです\nまたやってみますか？ Y/N\n";
        $YorN = <>;
    }