#!/usr/local/bin/perl

#program 2 rakamının girdiginiz deger olarak üssünü bulur

print ("Kullanacaginiz üs degerini giriniz:\n");

$us = <STDIN>;

chop ($us);

print ("2 nin $us .üssü = ", 2 ** $us, "\n");