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

my $username = $ARGV[0] or _usage();
my $password = $ARGV[1] or _usage();

my $salt = _randLetter() . _randLetter();
my $encryptedPass = crypt( $password, $salt );

print "$username:$encryptedPass:cvs\n";

sub _usage {
    print STDERR "\nUSAGE:\n";
    print STDERR "$0 <username> <password>\n";
}

sub _randLetter {
    return chr( ord('a') + int( rand(27) ) );
}