$ perl -Mstrict -Mwarnings -E '
    my $dec = 1211;
    say sprintf("%08x", $dec);
    say sprintf("%08X", $dec);
'
000004bb
000004BB