#!/usr/local/bin/perl -w

use strict;
use BMERC::bio qw(tbl_to_ig);

my $argv = $ARGV[0];

if(! defined $argv || $argv =~ /\?$|^-?help$|^-?h$/i){
    print <<HELP_LINES;
    
tbl-to-ig accepts filename to be converted. Output is to STDOUT.
    
Copyright Sean Quinlan, Trustees of Boston University 1999.

HELP_LINES
exit;
}#if


while(<>) {
    chomp;
    print tbl_to_ig($_);
}				# while

