Help for this page

Select Code to Download


  1. or download this
    use POSIX;
print strftime("%H:%M:%S", localtime);
  2. or download this
    sub TimeHMS {
  my $time = scalar(@_) ? shift(@_) : time;
  return strftime( "%H:%M:%S", localtime($time) );
} # TimeHMS
print TimeHMS();