my $db = ( $ENV{'SERVER_NAME'} !~ /varsa/ )
       ? DBI->connect('DBI:mysql:;localhost', 'root', 'secret', {RaiseError=>1})
       : DBI->connect('DBI:mysql:;mysql3.freehostia.com', 'nikkou6_db', 'secret', {RaiseError=>1});