package Kale_1990::Database;

use strict;
use warnings;
use DBI;
use DBD::mysql;

sub connect {
   my $class = shift;
   my ($user,$pass,$db,$host) = @_;
   my $dbh = DBI->connect("DBI:mysql:$db:$host",$user,$pass) or die $DBI::errstr;
   return $dbh;
}