print $fh "foo\n" 
  or die "Error writing: $!";