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