...>perl -e "die qq(alarm\n)"
alarm