Help for this page

Select Code to Download

Select or download this

use Modern::Perl;
use autodie;

...
}

say count_seq('test.file', 'TA');