print "Sayiyi Girin:\n"; $sayi=<STDIN>; chop($sayi); print "Sayinin ussunu giriniz:\n"; $us=<STDIN>; chop($us); $sonuc = $sayi ** $us; print "Sonuc = $sonuc\n"; exit();