Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...

__DATA__
32 wilma 16
  2. or download this
    package MyTest;

...

__DATA__
TEST 1 2 3
  3. or download this
    14:19 >perl 646_SoPW.pl
MAIN: >32 wilma 16<
MAIN: >TEST 1 2 3<

16:04 >
  4. or download this
    sub run
{
...

    seek DATA, $datapos, 0;
}