briandfoy · April 28, 2013 22:07
diff --git a/bench b/bench
 #!/usr/bin/perl

 my $start = time;

 system  { $ARGV[0] } @ARGV;   # See the Security chapter!

 my $end   = time;

 printf "The whole time was %d seconds\n", $end - $start;
	#!/usr/bin/perl

	my $start = time;

	system { $ARGV[0] } @ARGV; # See the Security chapter!

	my $end = time;

	printf "The whole time was %d seconds\n", $end - $start;