#!usr/bin/perl
print "Buyuk sayiyi giriniz: "
$ilksayi=<STDIN>;
chop($ilksayi);
print "Kucuki sayiyi giriniz: ";
$ikinci=<STDIN>;
chop($ikinci);
$sonuc = $ilksayi - $ikinci;
print "Sonuc = $sonuc ";
exit();