# XXX WRONG
$rv = print $fh (...);
if ($!) {
   die("Unable to write to file: $!\n")
}

# Ok
$rv = print $fh (...);
if ($rv) {
   die("Unable to write to file: $!\n")
}