Select Code to Download

use overload '*' => sub {
    my $div = int(${$_[0]} / ${$_[1]});
    my $mod = ${$_[0]} % ${$_[1]};
    return ($div, $mod);
};

package mod;
use strict;
...
__END__
dot
dot