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

##</code><code>##

perl -le "print BLAH 'foo' or warn $!; print 'foo'; print $!";