...
while(<FILE2>){ $count += syswrite STDOUT, $_ }
...