Как запрашивать ввод и выход, если пользователь ввел пустую строку?

Я новичок в Perl и пишу программу, в которой я хочу заставить пользователя ввести слово. Если пользователь вводит пустую строку затем программа должна выйти.

Вот что у меня есть на данный момент:

print "Enter a word to look up: ";

chomp ($usrword = <STDIN>);