Help for this page

Select Code to Download

Select or download this

if ( $line =~ /NEWTABLE/) {
   seek(FH, (0 - length($line)+tell(FH)), SEEK_CUR);
...
   chomp($line);
   print "LINE AFTER SEEK :$line:\n"
}

Select or download this
```
"LINE AFTER SEEK :EWTABLE:\n"
```