Help for this page

Select Code to Download

Select or download this

sub mod_9 {
    my( $x ) = @_;
    return $x % 9
}