use CGI;
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use strict;

my $db_name="scent";
my $o = new CGI;
my $tip2 =$o -> param("tip2");

my $DSN="dbi:mysql:$db_name";
my $user="root";
my $pass="";
my $dbh = DBI -> connect($DSN,$user,$pass);  <------


#return;
my $SQL= "select * from par;";

my $sth = eval { $dbh -> prepare($SQL) };   <------
if ($@) {
    $dbh -> disconnect;
    print $@
        }
else {
     $sth -> execute;
     }