System Functions Perl

  1. Home
  2. Perl
  3. System Functions
  4. Benchmark timethis
#!/usr/bin/perl
use warnings;
use strict;
use Benchmark;
my $howmany = 10000;
my $what = q/my $j=1; for (1..100) {$j*=$_}/;
timethis($howmany, $what);