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