#! /usr/bin/env perl

use v5.10.1;
use strict;
use warnings;
use Pod::Usage;

BEGIN {
    push @INC, "../";
}

use ACU::Password;

say Password::gen_password($ARGV[0], $ARGV[1]);