Sayinin üssünü alma

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();