#!/usr/bin/perl -w

use strict;
use v5.30;

use Digest::MD5 qw(md5_hex);

my $id = 'ugkcyxxp';
my $pass = '';
my $i = 0;
while (length($pass) < 8) {
	my $h = md5_hex($id.$i);
	if ($h =~ /\A00000/) {
		$pass .= substr($h, 5, 1);
	}
	$i++;
}

say $pass;
		
