#!usr/bin/perl
#Bölme makinesi
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();