#!/usr/bin/perl -w
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use lib "/home/digioso/web/digioso.tk/stuff";
use Navi2;

my $cgi = Navi2::create_cgi();
Navi2::print_navi($cgi);
print "test";
Navi2::end_navi($cgi);

##</code><code>##

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