#!/usr/bin/perl -wT

use strict;
use CGI qw/:standard/;
use lib "/home/vae/perl";

print header;
execute();
info();
print end_html;



sub execute {
        use strict;
        use CGI qw/:standard/;

        print  h1("hi");
}

sub info {

        use strict;
        use CGI qw/:standard/;
        use DBI;

        my $DSN= "DBI:mysql:vaevictus";
        my $user= "vaevictus";
        my $pass= "";  #censored.  :)

        my $dbh = DBI->connect($DSN,$user,$pass) or print h1('nope');
        print  h1("hi");
        $dbh->disconnect;

}