Help for this page

Select Code to Download

Select or download this

sub assert { 
    my($x, $y, $z) = @_; 
...
        eval (z);
    }
}