my $random = sprintf "%04d", 1 + rand 9999