Select Code to Download

sub callbacks_for_today {
...

}

sub swap_sql {
    my ($sql_fragment, $sub_hint, $sub_expr) = @_;
...
    $sql_fragment;
}

sub callbacks_for_tomorrow {
...

     \@tomorrow_sql;
}