Help for this page
open(TMPFILE,"<datafile.txt") or do { mysub(); die "Cant open: $!" };
$SIB{__DIE__} = sub { mysub(); die @_ };