use strict;
use warnings;
my $sec;
my $min;
my $hour;

($sec, $min, $hour) = localtime();