The script is called "sub" and it creates skeletons of sub's by parsing an usage statement and applying it to a template. An usage statement is not valid Perl but it makes sense. For examples:

  $text | @text = trim( @text );
[download]

will create:

  # --------------------------------------
  #       Name: trim
  #      Usage: $text = trim( @text );
  #             @text = trim( @text );
  #    Purpose: TBD
  # Parameters: @text -- TBD
  #    Returns: $text -- TBD
  #             @text -- TBD
  #
  sub trim {
    my @text = @_;
    my $text = '';

    return wantarray ? @text : $text;
  }
[download]

and

  \%options = $object->get_options( ; @option_names );
[download]

will create:

  # --------------------------------------
  #       Name: get_options
  #      Usage: \%options = $object->get_options( ; @option_names );
  #    Purpose: TBD
  # Parameters: @option_names -- TBD
  #    Returns:     \%options -- TBD
  #
  sub get_options {
    my $self         = shift @_;
    my @option_names = @_;
    my $options      = {};

    return $options;
  }
[download]

Can someone suggest a category for it?