Select Code to Download

           my $width = 80;
           sub process { ... }
...
       This will call "process("arg1")" while "$width" is "80",
       "process("arg2")" while "$width" is "72", and
       "process("arg3")" while "$width" is "60".

  use Getopt::Long;
  Getopt::Long::Configure( 'permute' );
...
  # call with args like

  -a foo bar -noa -b baz