print $fh chr 4;