>>MAIN SCRIPT<<

use strict;                   
use bignum;                   
use Temp;

                              
my $f=@ARGV[0];
               
for (my $xx = 1;$xx<=100;$xx++){                              
my $x=Fact($f);               
print "$x";                   
}                            
 


 >>Module<<

package Temp;
                            
sub Fact{                     
                              
my $d = $_[0];                   

my $h =1;                    
for (my $i = 1; $i<=$d; $i++){
    $h *=$i;
  }
                                                                     
return $h;                    
}  
1;