open my $write_fh, '<', 'temp.txt' or die $!;