sub getvalue
{ 
   my ($file, $val) = @_;

   my $f = new IO::File $file, "r" or die "Can not open $file: $!";
   my $matched = '';

   while (<$f>)
   {
      $matched .= (split)[1] . "\n" if (/$val/);
   }
   return $matched;
}