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