Help for this page

Select Code to Download

Select or download this

package Foo;

use fields qw(a b c);
...
$r->{$key} = 1; # run-time error