#! /usr/bin/perl

# power: compute x**n

# parameters are $x then $n
sub power{
    my $p = 1; my $i = 0; my $x = shift;  my $n = shift;
    while ($i < $n) {
	$p = $p * $x;
	$i = $i + 1;
    }
    return $p;
}

# main program
print "2**10 is ", power(2,10), ", 2**20 is ", power(2,20),"\n";