Select Code to Download

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

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