my $afile = prompt( "Annotation file?" ); open ANNOT, '<', $afile or die "$afile: $!"; open OUTPUT, '>', 'output.txt' or die $!;