{
my @password_chars = ( 0..9,A..Z,a..z );  # acceptable chars
sub Pass {
	my $password = '';
	for ( 1..8 ) {
		$password .= $password_chars[rand(@password_chars)];
	}
	return $password;
}
}