Help for this page

Select Code to Download

Select or download this

seek FH, -1, 2;
read FH, $char, 1;

if ($char eq "#") {
...

Select or download this
```
seek FH, -2, 2;
```