#!/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";});