#!/usr/bin/perl use strict; my $o = '-'; use Getopt::Std; our($opt_s, $opt_p, $opt_f, $opt_n, $opt_i, $opt_b, $opt_g, $opt_2); getopts('s:pfnibg2'); if ($opt_s) { $o = $opt_s; } my $depth = 0; my $section = 1; my $note = 1; my $abstract = 0; my $current; my $tag = "content000"; my $back = "white"; my $fore = "black"; my $subtitle = ''; my $affilation = ''; my $closing = ""; my $opening = '