#!/usr/bin/perl

use strict;
use warnings;

use Benchmark qw(cmpthese);
my $tests = -5;
sub double { warn "This is a test"; }
sub single { warn 'This is a test'; }
cmpthese(
    $tests, 
    { 
        single => \&single,
        double => \&double
    }
);