#!/usr/bin/perl -w

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

package Navi;

my $cgi = new CGI;
binmode STDOUT, ":utf8";

sub print_navi
{
	print $cgi->header (-type => 'text/html', -charset => 'UTF-8');
}

sub end_navi()
{
	print $cgi->end_html;
}