Select Code to Download

$send_flag = ($bbstatus ne $last_bbstatus)
             or (($now - $last_send_time) > $min_frequency)
             or defined($OPTS::opts{f});

my @messages = (
  [ sub { $bbstatus ne $last_bbstatus }, "Status not changed" ],
...
foreach my $m (@messages) {
  print $m->[1], last if $m->[0]->();
}

my $send_message =
  ($bbstatus ne $last_bbstatus and "Status no changed")
...
    or (defined($OPTS::opts{f}) and "Forced send requested")
    or "No changes";
my $send_flag = $send_message ne "No changes";