#!/usr/bin/perl

use strict;
use warnings;

use Carp qw(confess);
use Ernad::Common;

my $in=shift // '';
if(not $in) {
  print "I need an input string from you.";
}

my $password=&Ernad::Common::password($in);
print "$password\n";