#! perl
# SortTime.pl, Version 2.00
# Display "sorted" time (HHmmSS)
# Written by Rob van der Woude
# http://www.robvanderwoude.com
# Parse time string
($sec,$min,$hour) = (localtime)[0,1,2];
# Display result, correctly formated
printf("\nSortTime = %02d%02d%02d\n", $hour, $min, $sec);