#!/usr/bin/perl -w

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

package Navi2;

1;

sub create_cgi
{
	binmode STDOUT, ":utf8";
	return new CGI;
}

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

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