This Perl script enables you to extract the longest open reading frame (ORF) from nucleatide sequences