Guess a silly password

guesspasswordpoops.pl

#!user/bin/perl

use strict;
use warnings;

my $password = 'poops!';

print "Please enter your guess:\n";
my $guess = <STDIN>;
chomp $guess;

while ($guess) {
    if ($guess ne $password) {
	print "That's not correct. Try again. \n";
	$guess = <STDIN>;
	chomp $guess;
   }
    else {print "You got it! This program will now terminate.\n\n";
	  exit;
   }
}