Select Code to Download

unless ($G)
{
...
   die "$usage";
 }
}

 if (!($P) && $shifted =~ /\w/)
 {
...
 {
   die "$usage";
 }

foreach(sort keys %switches) {
  ${$_}= "$switches{$_}";
...
  if ($switches{$_} eq '0') { print " (OFF)" if $D; }
  print "\n" if $D;
}

foreach(sort keys %switches) {
  ${$_}= "$switches{$_}";
...
    print "\n";
  }
}

  $G ?
    ( $extra = " ***GAPS***" )
...
    ( $H ? print "WIDTH\tCOUNT\tSPOON$extra\n" : 0 )
    :
    ( $H ? print "WIDTH\tCOUNT$extra\n" : 0 );

  $extra = 
    $G
...
    $S
      ? "WIDTH\tCOUNT\tSPOON$extra\n")
      : "WIDTH\tCOUNT$extra\n";

    $S ? "$_\t$seen{$_}{count}\t$seen{$_}{spoon}\n" : print "$_\t$seen
+{$_}{count}\n";