14 lines
179 B
Perl
14 lines
179 B
Perl
#! /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]);
|