my ($std, $min, $sec) = clock();
my $a = clock();

print "$std-$min-$sec\n";
print $a, "\n";

sub clock
  {
  my ($s, $m, $h) = localtime(time());
  if (wantarray) 
    { return ($h, $m, $s); }
  else
    {
    $h = $h < 10 ? "0".$h : $h;
    $m = $m < 10 ? "0".$m : $m;
    $s = $s < 10 ? "0".$s : $s;
    return("$h:$m:$s"); 
    }
  }