print"Gib erste Sequenenz ein \n";
my $seq1=<STDIN>;

print"Gib  zweite Sequenz ein \n";
my $seq2=<STDIN>;