#!/usr/bin/perlml

BEGIN {
 my $base_module_dir = (-d '/home/jeffer36/perl' ? '/home/jeffer36/perl' : ( getpwuid($>) )[7] . '/perl/');
 unshift @INC, map { $base_module_dir . $_ } @INC;
 unshift @INC, '/home/jeffer36/perl5/lib/perl5','/home/jeffer36/perl5/lib/perl5/x86_64-linux','/home/jeffer36/perl5/lib/perl5/x86_64-linux/Bundle';
        }
use POSIX qw(strftime); 
use File::Copy;
use strict;
use CGI; 
use CGI::Session;
use CGI::Carp qw(fatalsToBrowser);
use File::CounterFile;
use Data::Dumper;
use DBI;
#use DBD::mysql;


##</code><code>##

my $dbh = DBI->connect("DBI:mysql:$db:$server", $userid, $passwd);