use POSIX;
print strftime("%H:%M:%S", localtime);

##</code><code>##

sub TimeHMS {
  my $time = scalar(@_) ? shift(@_) : time;
  return strftime( "%H:%M:%S", localtime($time) );
} # TimeHMS
print TimeHMS();