Select Code to Download

sub print_story {
  my ($source,$html) = @_;
...
  line($tab,qq(<p class="author">written by $user</p>)) if $tab == 3;
  end_html if $html;
}