open(TMPFILE,"<datafile.txt")
  or do { mysub(); die "Cant open: $!" };

##</code><code>##

$SIB{__DIE__} = sub {
  mysub();
  die @_
};