Help for this page

Select Code to Download

Select or download this
```
$SIG{ALRM}=sub{rearm()};
```
Select or download this
```
$SIG{INT}=sub{process()};
```

Select or download this


sub process {
...
        else {print TNOUT "$input"}
}