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