#!/usr/bin/perl -w


print pow(3,5);

sub pow {
	my $base = shift;
	my $exp = shift;
	if ($exp == 1) 
	{ 
		return $base
	}
	else
	{
		return pow($base, $exp-1) * $base;
	}
	
}
