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