Select Code to Download

perl -i -p -e '
BEGIN {
...
$sequenceLength = getc;
}
s/$/$sequenceLength/' seq.txt

$sequenceLength = <STDIN>; chomp($sequenceLength);