#!/usr/bin/perl
print "type the total number of sequences:";
$sequences_analyzed = <>;
print "type the number of new sequences:";
$new_sequences = <>;
$percentage_new_sequences = $new_sequences / $sequences_analyzed * 100;
print "the result is:";
print $percentage_new_sequences;
print "percent\n";
