#!/usr/local/bin/perl -w
use strict;
use Crypt::PasswdMD5;

my $password = "hello world";
my $salt = 0;
my $cryptedpassword = unix_md5_crypt($password, $salt);
my $apachepassword = apache_md5_crypt($password, $salt);

print "$cryptedpassword\n$apachepassword\n";