#!/usr/bin/perl
use warnings;
use strict;
my $passwd = "password";
my $salt = join '',('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64];
$passwd = crypt($passwd, $salt);