my $hashref=eval "{${s}}";
if($@) {
  print STDERR "Error in input: $@\n";
} else {
  # Dump the data just read
  print("Key $_ has value ",$hashref->{$_},"\n") for keys %$s;
}