Help for this page

Select Code to Download

Select or download this
```
#!/bin/perl  -s

...

    do_write;
}
```

Select or download this

#!/bin/perl -n

print length($_), "\n";
print;