#!/usr/bin/perl -w
use strict;
use lib "/home/digioso/web/digioso.tk/stuff";
use Navi2;
binmode STDOUT, ":utf8";
Navi2::print_navi();
print "test";
Navi2::end_navi();

##</code><code>##

#!/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;
}