$SIG{__DIE__} = sub { print '>', @_, "<\n"};