Change:

  my $line = <$fh>; chomp $line;

To:

  my $line = <$fh>; chomp $line; (my $line, my $value) = split / /, $line;

And change:

  return 1;

To:

  return $value;