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

##</code><code>##

C:\sunnyni\CM\perlscripts>perl nextline.pl
Error at nextline.pl line 5.

##</code><code>##

#ifndef __CORBA_H_EXTERNAL_GUARD__