sub main
{
	#Database login information
	my %login = (dsn     =>'dbi:ODBC:driver=SQL Server;server=X;database=dbname',
			     id      =>'login',
				 password=>'password',
				 attrib  =>{RaiseError=>1,
				     	    PrintError=>1,			  
				            AutoCommit=>0});

	#Connect to the database
	my $dbh = DBI->connect($login{'dsn'},
						   $login{'id'},
						   $login{'password'},
						   $login{'attrib'});

	my $mw = MainWindow->new(-borderwidth=>10);
	
	
	my $client = selectClient($dbh,$mw);
	
	$dbh->disconnect();
}