sub GetRandomPassword
{
my ($passwordlen) = @_;
if(!$passwordlen) { $passwordlen = 12; }

$OK_CHARS='-a-zA-Z0-9_.@';
$randWord = "";

rand(time);	# get first random value out of the way
while( length($randWord) < $passwordlen )
	{
	$achar = chr(int(rand(122)));
	$randWord .= $achar;
	$randWord =~ s/[^$OK_CHARS]//go;
	}

return $randWord;
}