my $val;
sub canmod : lvalue {
     $val;
}
sub nomod {
     $val;
}