print rand_pass(16);

sub rand_pass
{
	my $len = shift;
	my $pass;
	for (1..$len) {$pass .= chr(rand(94)+33)}
	return $pass;
}