#!/usr/bin/perl

use strict;
use CIPRES::TreeBase::DBILogin;

my $user = 
my $pass = CIPRES::TreeBase::DBILogin->pass();

@ARGV = qw(-z jruan -o schema -e) unless @ARGV;
system(qw(db2look -d tbase2),
	"-i",  CIPRES::TreeBase::DBILogin->user(),
	"-w",  CIPRES::TreeBase::DBILogin->pass(),
	@ARGV);