open (TEXT_FILE, "<C:\\sunnyni\\CM\\perlscripts\\src\\QuadCorbaDef.h") or die ("Error");