Select Code to Download

while ( <FH> ) {
  ...
...
    unless time_components($time)->[-2] % ($period / SEC_PER_MINUTE);
  ...
}