print(SAVE ($output || die(((q[can't write to save ] . $!) . "\n"))));