#! /usr/bin/perl use demotic_hmmer; while (&demotic_hmmer::parse(\*STDIN)) { &demotic_hmmer::tblout(\*STDOUT); }