Select Code to Download

$count=200;
$/ = \$count;
...
$record=<FILE1>;
close(FILE1);
print $record;

$/ = \2000;
open(FILE1,"a.txt");
$record=<FILE1>;
close(FILE1);
print $record;