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