Select Code to Download

my @index;
do {push @index, tell FIN} while <FIN>;
pop @index;

seek FIN, $index[4], 0;
print FOUT scalar <FIN>;