perl -wle 'BEGIN { $SIG{__DIE__} = sub { print "Catched SIGDIE: @_";exit(-1) }} use utf8; /^\w$/;'