#!/usr/bin/perl -w

use warnings;
use strict;
use lib "<path to my libraries on that server>";
use CGI;
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
use login_check;
use Navi;

my $cgi = CGI->new();

my $uid = login_check($cgi, ": Digiosos Con-System :");
if($uid > 0)
{
	print qq{ $uid <a href="test.pl">Test</a>};
	Navi->end_navi();
}

exit 0;