use Getopt::Std;

getopts("u:p:",\%options);

$user = $options{'u'};
$password = $options{'p'};
$data = crypt($password,'$1$'.crypt($password,rand(100)).'$');
print $user . ":" . $data . ":::::::\n";