Help for this page

Select Code to Download

Select or download this

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