<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<META NAME="Generator" CONTENT="MS Exchange Server version 5.5.2653.12">
<TITLE>strange syntax error</TITLE>
</HEAD>
<BODY>
<P><FONT SIZE=2 FACE="Arial">This code works</FONT>
</P>
<P><FONT SIZE=2 FACE="Arial">#!/l:\util\perl\bin\perl </FONT>
<BR><FONT SIZE=2 FACE="Arial"> use Getfunclines;</FONT>
<BR><FONT SIZE=2 FACE="Arial"> use Getofflength;</FONT>
<BR><FONT SIZE=2 FACE="Arial"> my @array;</FONT>
<BR><FONT SIZE=2 FACE="Arial"> my $file=$ARGV[0];</FONT>
<BR><FONT SIZE=2 FACE="Arial"> my $prec;</FONT>
<BR><FONT SIZE=2 FACE="Arial"> </FONT><FONT COLOR="#FF0000" SIZE=2 FACE="Arial">Getofflength:GetArrays($file);</FONT>
<BR><FONT SIZE=2 FACE="Arial"> </FONT>
<BR><FONT SIZE=2 FACE="Arial"> my @array= @{$prec};</FONT>
</P>
<P><FONT SIZE=2 FACE="Arial"> print @array;</FONT>
</P>
<BR>
<P><FONT SIZE=2 FACE="Arial">This code says I have a syntax error at line 7 near Getofflength:</FONT>
</P>
<BR>
<P><FONT SIZE=2 FACE="Arial">#!/l:\util\perl\bin\perl </FONT>
<BR><FONT SIZE=2 FACE="Arial"> use Getfunclines;</FONT>
<BR><FONT SIZE=2 FACE="Arial"> use Getofflength;</FONT>
<BR><FONT SIZE=2 FACE="Arial"> my @array;</FONT>
<BR><FONT SIZE=2 FACE="Arial"> my $file=$ARGV[0];</FONT>
<BR><FONT SIZE=2 FACE="Arial"> my $prec;</FONT>
<BR><FONT SIZE=2 FACE="Arial"> </FONT><FONT COLOR="#FF0000" SIZE=2 FACE="Arial">$prec = Getofflength:GetArrays($file);</FONT>
<BR><FONT SIZE=2 FACE="Arial"> </FONT>
<BR><FONT SIZE=2 FACE="Arial"> my @array= @{$prec};</FONT>
</P>
<P><FONT SIZE=2 FACE="Arial"> print @array;</FONT>
</P>
<BR>
</BODY>
</HTML>