Help for this page

Select Code to Download

Select or download this

sub isdual {
    my( $v ) = @_;
...
    ;
    return 1;
}