# save as save-seq.pl
# appends a sequence to the file sequences.txt
# sequences.txt will be created if it does not exist
# sequences are saved in fasta format
print "Enter Sequence Name: ";
$seqname=<STDIN>;
print "Enter Sequence: ";
$seq=<STDIN>;
open (FILE, ">>sequences.txt");
print FILE ">$seqname";
print FILE $seq;
close FILE;