print "请输入第一个数字first: " ;
$pmt = <STDIN> ;
chomp $pmt ;

print "请输入第二个数字second: " ;
$interest = <STDIN> ;
chomp $interest ;

print "请输入运算符号sin,0>+,1>-,2>*,3>/ " ;
$mons = <STDIN> ;
chomp $mons ;

#Formula requires a monthly interest
if( $mons == 0){
    print "您输入的运算符号为: + \n" ;
     $total = $pmt + $interest ;
}elsif( $mons == 1){
    print "您输入的运算符号为: - \n" ;
     $total = $pmt - $interest ;
}elsif( $mons == 2){
    print "您输入的运算符号为: * \n" ;
     $total = $pmt * $interest ;
}elsif( $mons == 3){
    print "您输入的运算符号为: / \n" ;
    if($interest == 0){
        $total = "除数不能为0 \n"
    }else{
         $total = $pmt / $interest ;     } }else{     $total = "出错啦。" ; }      print "计算结果是：  $total" ;