use Bio::Perl;
$database="genbank";
$format="fasta";
$pipe ="\\|";
$space = "    ";
open(INPUTFILE, "<test.txt");
while(<INPUTFILE>)
 {
   my($line) = $_;
   chomp($line);
   $line=~ s/$space/:/;
   $line=~ s/$pipe/$space/;
   $line=~ s/g/G/;
   $line=~ s/i/I/;
   $id= "$line";
#print "$id";
#print "\n";
   $sequence = get_sequence($database, $id);
   $test = write_sequence( ">>sequences_1.txt", $format, $sequence);
open (CHK , ">>checking.txt");
print CHK <<HERE;
$test
HERE
close CHK;
 }
 exit;