$dbh = DBI->connect("DBI:Sybase:host=$args{dbhost}:database=$args {dbname};port=$args{dbport}", "$args{dbuser}", "$args{dbpass}")
				or die "Couldn't connect to database: " . DBI->errstr;