firemod: fix here-doc

lf_firemod.pl

@@ -78,7 +78,10 @@ our @known_tos        = qw(DONT-SET LOWCOST LOWDELAY  RELIABILITY THROUGHPUT);
 # Nothing to configure below here, most likely.
 ########################################################################
 
-our $usage = <<'__EndOfUsage__';
+my $endp_type_str = join(' | ', @::known_endp_types);
+my $tos_str = join(' | ', @::known_tos);
+
+our $usage = <<"__EndOfUsage__";
 $0 [ --action {
      create_cx | create_endp  | create_arm   |
      delete_cx | delete_cxe   | delete_endp  | do_cmd    |
@@ -92,7 +95,7 @@ $0 [ --action {
   [--cx_endps     {endp1},{endp2}]
   [--endp_cmd     {generic-endp-command}]
   [--endp_name    {name}]
-  [--endp_type    { ".join(' | ', @{::known_endp_types})." }]
+  [--endp_type    { $endp_type_str }]
   [--endp_vals {key,key,key,key}]
       # show_endp output can be narrowed with key-value arguments
       # Examples:
@@ -119,7 +122,7 @@ $0 [ --action {
   [--stats_from_file {file-name}]
       # Read 'show-endp' ouput from a file instead of direct query from LANforge.
       # This can save a lot of time if we already have the output available.
-  [--tos          { ".join(' | ', @{::known_tos})." },{priority}]
+  [--tos          { $tos_str },{priority}]
   [--use_csums    {yes | no, should we checksum the payload}]
   [--log_cli      {1|filename}]
   [--test_mgr     {default_tm|all|other-tm-name}]
@@ -204,7 +207,7 @@ GetOptions
    'stats_from_file=s'  => \$::stats_from_file,
    'ttl=i'              => \$::ttl,
    'use_csums=s'        => \$::use_csums,
-   'use_ports=s'        => \@::use_ports
+   'use_ports=s'        => \@::use_ports,
    'test_mgr=s'         => \$::test_mgr,
    'tos=s'              => \$::tos,