use strict; eval { die; }; print "1: $@"; eval "die"; print "2: $@";