# The appropriate time / date values are retrieved from localtime()
($sec, $min, $hour) = paddatevalues($sec, $min, $hour);

sub paddatevalues {
 foreach my $value (@_) {
  while (length $value < 2) {
   $value = '0'.$value;
  }
 }
 return @_;
}