libName = "cmos28shp"	; device library name
tech_lib = "cmos28shp"
techFileID = techOpenTechFile( "cmos28shp" "tech.db" "r")
lib = ddGetObj(libName)				  ;;  Verify the library existance
if(lib == nil  then
    fprintf(stderr "ERROR: Invalid library. %L .\n" libName)
    return(nil)
else

##</code><code>##

my $outfile = "skillfile.il";
open FH, ">> $outfile";
print FH "libName = "cmos28shp"\n";
print FH 'tech_lib = "cmos28shp"';
close FH;

##</code><code>##

Bareword found where operator expected at testfile.pl line 12, near ""libName = "cmos28shp"
        (Missing operator before cmos28shp?)
String found where operator expected at testfile.pl line 12, near "cmos28shp"\n""
syntax error at testfile.pl line 12, near ""libName = "cmos28shp"
BEGIN not safe after errors--compilation aborted at testfile.pl line 19.