Help for this page

Select Code to Download

Select or download this

    $rec{$key} = $value if defined $key;
    $key = $newkey;
print "KEY = $key, VALUE = $value\n";

Select or download this

    $rec{$key} = $value if defined $key;
    print "KEY = $key, VALUE = $value\n";
    $key = $newkey;