sub build_command { my $num = shift; my $title = shift; my %args = @_; my $cmd = sprintf( qq{set title "The %s Indicator\n"}, $title, ); # ....