نحوه نوشتن تابع در زبان پرل؟

سلام

من تابع فاکتوریل رو نوشتم ولی کار نمیکنه! علتش چیه؟

#!/usr/bin/perl

 

sub fact($n){

$p=1;

while($p<=$n)

 {

   $p*=$p;

   $p++;

 }

return $p;

}



$n=3;

print fact($n);