Help for this page
#!/usr/bin/perl -w ... hjCQi34Qt4uGE C:\perl>
#!/usr/bin/perl -w ... chomp( my $guess = <STDIN> ); print "Imposter!" if( crypt($guess, $password) ne $password);