#! /usr/bin/perl
## create password file for Apache
%users = (
  'user1', '1111',
  'user2', 'aaaa',
);
while (($user,$pass) = each(%users)) {
  print $user . ':' . crypt($pass,$user) . "\n";
}
exit;