#!usr/bin/perl #Çarpma makinesi :) print "Birinci sayiyi giriniz:\n" $ilksayi=<STDIN>; chop($ilksayi); print "Ikinci sayiyi giriniz:\n"; $ikinci=<STDIN>; chop($ikinci); $sonuc = $ilksayi * $ikinci; print "Sonuc = $sonuc\n"; exit();