#!/usr/bin/perl -w

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

package Navi2;

binmode STDOUT, ":utf8";

sub create_cgi
{
	return new CGI;
}

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

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