% perl5.6.1   -e 'srand(-2091643526); print chr rand 90 for (0..4)'
JAPH

% perl5.00503 -e 'srand(-2091643526); print chr rand 90 for (0..4)'
TOPH