Help for this page

Select Code to Download

Select or download this
```
use strict;
...

print $first;
```

Select or download this

sub isNumber
{
...
  local $SIG{__WARN__} = sub { $N = 0; };
  return ($_[0] & 0) | $N;
}