my ( undef, $min, $hour ) = localtime;