Select Code to Download

#! /usr/bin/perl -w
use strict;
...
  return ($best_seq, $best_chrs);
}
__END__

bash-2.01$ time perl add_chain.pl /etc/dictionary 
at + r =
...
real    0m6.708s
user    0m6.090s
sys     0m0.180s