perl -e 'print qq(Gotcha!\n) unless print STDIN qq(Hello)'
[download]

All interactions with the system have the possibility of failure...