#!/usr/bin/perl

#$password = crypt("lucid23","lucid23");

$name = "lucid23";

#$password = crypt($name, substr($name,0, 2));
$password = crypt($name,$name);


print <<EOF;
Content-type: text/html

<HTML>
<HEAD><TITLE> MVD test </TITLE></HEAD>
<p><hr size=2><p>
$password
<hr>
</CENTER></BODY></HTML>
EOF

exit;
