Help for this page

Select Code to Download

Select or download this
```
my $db;

...
}

# $db is ok here
```

Select or download this

H:\>perl -wle "eval {$SIG{ALRM}=sub{die qq{ook\n}}; alarm(3); 1 while 
+1; alarm(0)}; print
$@"
ook