Language Basics Perl

#!/usr/bin/perl -w
use strict;
my $password = "foxtrot";
print "Enter the password: ";
my $guess = ;
chomp $guess;
if ($password eq $guess) {
    print "Pass, friend.\n";
}