#!/usr/bin/perl
print ("Enter the secret password:\n");
$password = "bluejays";
$inputline = ;
chop ($inputline);
$outputline = $inputline eq $password ?
          "Yes,that is the correct password!\n" :
          "No, that is not the correct password.\n";
print ($outputline);