Password Guessing

#!/usr/local/bin/perl

print ("Enter the secret password:\n");
$password = "wsummers";
$inputline = <STDIN>;
chop ($inputline);
$outputline = $inputline eq $password ?
        "Yes, that is the correct password!\n" :
        "No, that is not the correct password.\n";
print ($outputline);