Help for this page

Select Code to Download

Select or download this

while (<DATA>)
{
...

    $hash->{$key} = $val;
}

Select or download this

use strict;

...
        Type:    2
        Data:    20