sub convert_raw_to_fasta {
    my $InFileName = shift;
    my $OutFileNameBase = shift or die "Missing argument(s)!";

    open $hu, '<', $InFileName or die $!;
    my $seq=<$hu>;
    close $hu or die $!;

    open $hu, '>', $OutFileNameBase . ".fa" or die $!;
    print $hu ">$maid\n$seq";
    close $hu or die $!;
}