Select Code to Download

#!/usr/bin/perl

...
 $b=<stdin>;
 chomp($b) ;
 print "$b \n";});

O/p is 1..1
Name "main::a" used only once: possible typo at bench.pl line 6.
...
#  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.