#!/usr/bin/perl


use Test::Simple  tests => 1;
  use Test::Benchmark;
  is_faster(1,sub {$a=9;
        print "enter a name \n";
        $b=<stdin>;
        print "$b\n";},sub { print "give input";
 $b=<stdin>;
 chomp($b) ;
 print "$b \n";});

##</code><code>##

O/p is 1..1
Name "main::a" used only once: possible typo at bench.pl line 6.
enter a name
rr
rr

            (warning: too few iterations for a reliable count)
give input22
22
            (warning: too few iterations for a reliable count)
not ok 1
#     Failed test (/usr/lib/perl5/5.6.0/Test/Benchmark.pm at line 76)
# code1 was not faster than code 2
#  1 wallclock secs ( 0.00 usr +  0.00 sys =  0.00 CPU)
#  5 wallclock secs ( 0.00 usr +  0.00 sys =  0.00 CPU)
# Looks like you failed 1 tests of 1.