#!/usr/bin/perl

use strict;
use warnings;

use Benchmark("cmpthese");

cmpthese(-1, {
   "double", q !eval q {$a = "this is a string"}!,
   'single', q !eval q {$b = 'this is a string'}!,
});