#! /usr/bin/perl

use warnings;
use strict;
use Crypt::PasswdMD5;

our $clear_passwd = shift || 'a123456';

our $hashed_password = unix_md5_crypt $clear_passwd;
print "{crypt}$hashed_password\n";