#!usr/bin/perl #Bölme makinesi :D print "Bolunecek sayiyi giriniz:\n"; $ilksayi=<STDIN>; chop($ilksayi); print "Bolecek sayiyi giriniz.\n"; $ikinci=<STDIN>; chop($ikinci); $sonuc = $ilksayi / $ikinci; print "Sonuc = $sonuc\n"; exit();