This is one way of doing it (I assume your subs are cleanup routines rather than routines that should output stuff in the die message?):

open TST, ">>$var1"
    or One(), Two(), die "Could not open '$var1': $!";
[download]

If that is any clearer may be disputed... I think it is, but some may disagree. Maybe '&&' instead of commas are more intiutive between the calls? That works too.

The '1' is, as pointed out, what do returns to your die for printing.

Hope that helps.

---

You have moved into a dark place.
It is pitch black. You are likely to be eaten by a grue.