Enlil beat me to the sprintf solution, but if you've got more complex date formatting to do, consider using the strftime function from the POSIX module.

use POSIX ;
my $now = POSIX::strftime( "%H%M", localtime ) ;
print $now, "\n" ;
[download]

_______________
DamnDirtyApe

Those who know that they are profound strive for clarity. Those who
would like to seem profound to the crowd strive for obscurity.
            --Friedrich Nietzsche