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

while($a != 9456498)
    {
        $a = <>;
        print "もう一つ入れてください\n";
        $b = <>;
        print "やりたいことを教えてください 1: + 2: - 3: * 4: /\n";
        $c = <>;
        print "ありがとうございます、結果はこれです\nまたやってみますか？\nはいorいいえ\n";
    }
if ()
    {
    print $a + $b
    }
elsif()
    {
        print $a + $b
    }
elsif()
    {
        print $a + $b
    }
elsif()
    {
        print $a + $b
    }
else
    {
    print "1~4以外はいれるんじゃねぇ！";
    }
    print "数字を入れてください\n";