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