Select Code to Download

if (crypt($word, $pwd) ne $pwd) {
    die "Sorry...\n";
} else {
    print "ok\n";
}

my $cryptedpass = crypt($passwrd1, substr($never_blank_value, 0, 2));

#!/usr/bin/perl
use strict;
...

$ perl test.pl
Too small \$never_blank_value at test.pl line 13.

#!/usr/bin/perl
use strict;
...

 perl test.pl
Use of uninitialized value $cryptedpass in say at test.pl line 15.

die 'Not accepted characters at \$never_blank_value'
    unless ($never_blank_value =~ /^[a-zA-Z0-9.\/]+$/);