parsewiki

	if (/^-f$/) { $Format = shift(@ARGV); next }
	if (/^-f(.*)$/) { $Format = $1; next }
	if (/^--format\=(.*)$/) { $Format = $1; next }
	if (/^-T$/) { $title = shift(@ARGV); next }
	if (/^-T(.*)$/) { $title = $1; next }
	if (/^--title\=(.*)$/) { $title = $1; next }
	if (/^-t$/) { &ReadTemplate(shift(@ARGV)); next }
	if (/^-t(.*)$/) { &ReadTemplate($1); next }
	if (/^--template\=(.*)$/) { &ReadTemplate($1); next }
	if (/^(-c|--copyright)/) { &Copying; next }
	if (/^(-h|--help)/) { &Usage }
    }
    unshift(@ARGV, '-') unless @ARGV;
    &Usage if (@ARGV > 1);
    $file = shift(@ARGV);
    return $file;
}