#$a gt $b $a sorts alphabetically after $b
#$a le $b $a sorts alphabetically before $b
#$a eq $b $a is the same as $b
#$a ne $b $a is not the same as $b
#!/usr/bin/perl
use warnings;
use strict;
my $password = "password";
print "Enter the password: ";
my $guess = <STDIN>;
chomp $guess;
if ($password eq $guess) {
print "Pass, friend.\n";
}
if ($password ne $guess) {
die "Go away, imposter!\n";
}
|