[0] Perl> $now = substr localtime(), 11, 8;;
[0] Perl> print $now;;
21:59:52