Generate queue identifier of Sendmail

sendmail-queueid.pl

#!/usr/local/bin/perl
use strict;
use warnings;
use Time::Piece;

my $current = new Time::Piece();
my $idchars = []; push( @$idchars , '0'..'9', 'A'..'Z', 'a'..'x' );
my $queueid = {
	'Y' => $idchars->[ $current->_year() % 60 ],
	'M' => $idchars->[ $current->_mon() ],
	'D' => $idchars->[ $current->mday() ],
	'h' => $idchars->[ $current->hour() ],
	'm' => $idchars->[ $current->min() ],
	's' => $idchars->[ $current->sec() ],
	'q' => $idchars->[ int rand(60) ],
	'p' => sprintf( "%05d", $$ ) };

print $queueid->{$_} for ( qw|Y M D h m s q p| );
print qq(\n);
__END__