Write a Perl subroutine called factorial, which returns the factorial of its argument, e.g. &factorial(17)=17!. Sample code for an evaluation script can be found here.