Select Code to Download

use Time::Piece;   # Core module
use Time::Seconds; # Core module
...
print $ct->strftime(TIME_FORMAT), " is ",
      ( $ct >= $st && $ct <= $et ) ? "in" : "out of",
      " range\n";