my $oktorun
sub main
sub print_advice
sub queue_advice
sub print_grouped_report
sub get_cxn
sub sig_int
sub _d