package Object;
{

    # pow does not require an object data
    sub pow 
    {
       my $val = shift;
       my $pow = shift;
   
       return $val ** $pow;
    }

}
1;