#!/usr/bin/perl -w
use CGI qw/:standard/;

print header();

do "functions/func.pl" or die $!;

print "ok ";
$bdd = &connect_db or die $!;
print "FIN";