You could just use a simple do e.g

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

Or if you want it performed across the board you could create a die signal handler e.g

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

See. the die docs for more info.