Write a Perl subroutine called factorial, which returns the factorial of its argument, e.g. &factorial(17)=17!. You can use the boolean function &negative(number), which returns true if the argument is negative. Sample code for an evaluation script can be found here.