#!/usr/bin/perl
use strict;
use warnings;
use English;

use Crypt::Cracklib;

my $pass = $ARGV[0];
unless(defined $pass) {
    die "Usage: $PROGRAM_NAME <password>\n";
}

if(check($pass, undef)) {
    print "Password ok\n";
} else {
    print "Password NOT ok\n";
}