open WRITE, '<', '$file' or die $!;