用Perl裡的 use Benchmark;

use Benchmark;#引入Benchmark






sub approved{
  my $line = <testfile.txt>;
  exit(0) unless defined($line);
  return \$line;
}


timethis(100,"approved");#算出call函數名為approved呼叫100次所耗費的時間