BEGIN { $^W = 1; }
use strict 'refs';
(my($sec, $min, $hour) = (localtime)[(0..2)]);
print(((((($hour . ':') . $min) . ':') . $sec) . "\n"));
(($sec, $min, $hour) = localtime([(0..2)]));
print(((((($hour . ':') . $min) . ':') . $sec) . "\n"));
__DATA__