perl -MBenchmark -E '
  my $x= 1;
  timethese(50000000, {
    mul => q{$x*$x},
    sqrt => q{sqrt($x)}
  })'