if ($this->isa 'cool_archive') {
    print $this->name, " is a cool archive.\n", <<EOT;
You also have the following cool features:
... (more cool features)
EOT
    # interactively ask user to pick one...  
}